質問編集履歴
1
変数の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -31,7 +31,7 @@
|
|
|
31
31
|
For i = 2 To rowsData
|
|
32
32
|
label_data = sheet1.Cells(i, 1).Value
|
|
33
33
|
If ”label_dataに「label_code」が含まれている場合” Then
|
|
34
|
-
|
|
34
|
+
sheet1.Range(sheet1.Cells(i, 1), sheet1.Cells(i, 3)).Copy sheet2.Cells(k, 1) '1行ごとにsheet2へコピーする
|
|
35
35
|
k = k + 1
|
|
36
36
|
End If
|
|
37
37
|
Next i
|