回答編集履歴
1
表示がおかしかったので
test
CHANGED
|
@@ -8,12 +8,10 @@
|
|
|
8
8
|
'最終行番号の取得
|
|
9
9
|
intRowEnd = Sheets("renewal_csv (2)").Cells(Rows.Count, 1).End(xlUp).Row
|
|
10
10
|
p = intRowEnd '最終行番号を行カウンタにセット
|
|
11
|
-
|
|
12
11
|
Do While p >= 2
|
|
13
12
|
If Mid(Sheets("renewal_csv (2)").Cells(p, 4).Value, 7, 2) = "_0" Then '左から7文字目の2文字がアンダーバーなら
|
|
14
13
|
MsgBox Mid(Sheets("renewal_csv (2)").Cells(p, 4).Value, 7, 2)
|
|
15
14
|
Sheets("renewal_csv (2)").Cells(p, 4).Replace "_0", "" ' _0削除
|
|
16
|
-
|
|
17
15
|
End If
|
|
18
16
|
p = p - 1
|
|
19
17
|
Loop
|