質問編集履歴
2
シート名誤記
test
CHANGED
File without changes
|
test
CHANGED
@@ -78,13 +78,13 @@
|
|
78
78
|
|
79
79
|
|
80
80
|
|
81
|
-
Set lastRow = wb.Worksheets(
|
81
|
+
Set lastRow = wb.Worksheets(1).Range("A1").End(xlDown).Row
|
82
82
|
|
83
83
|
|
84
84
|
|
85
85
|
'マクロの記録で以下のコードを作成したので、良く理解出来ていない部分がございます。
|
86
86
|
|
87
|
-
Selection.TextToColumns Destination:=wb.Worksheets(
|
87
|
+
Selection.TextToColumns Destination:=wb.Worksheets(1).Range("A1"), DataType:=xlDelimited, _
|
88
88
|
|
89
89
|
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
|
90
90
|
|
1
ループはするのですが、何も処理されないまま閉じてしまいます。
test
CHANGED
File without changes
|
test
CHANGED
@@ -11,6 +11,8 @@
|
|
11
11
|
|
12
12
|
|
13
13
|
上手くいかないのですが、どこが悪いのかご指摘いただけますと幸いです。
|
14
|
+
|
15
|
+
ループはするのですが、何も処理されないまま閉じてしまいます。
|
14
16
|
|
15
17
|
|
16
18
|
|