質問編集履歴
1
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -206,7 +206,7 @@
|
|
|
206
206
|
|
|
207
207
|
For i = 9 To UBound(Wri)
|
|
208
208
|
|
|
209
|
-
If wks.Cells(i - 1, 2).Value <> Wri(RowCnt,
|
|
209
|
+
If wks.Cells(i - 1, 2).Value <> Wri(RowCnt, 0).Value Then wks.Cells(i, 2).Value = Wri(RowCnt, 0)
|
|
210
210
|
|
|
211
211
|
For c = 4 To 38
|
|
212
212
|
|