回答編集履歴
1
文法誤り修正
test
CHANGED
@@ -2,7 +2,7 @@
|
|
2
2
|
|
3
3
|
```VBA
|
4
4
|
|
5
|
-
dataTB = ws1.Range(ws1.Cells(1, 1), ws1.
|
5
|
+
dataTB = ws1.Range(ws1.Cells(1, 1), ws1.Cells(LR + 1, 4))
|
6
6
|
|
7
7
|
'dataTB = ws1.Range(ws1.Cells(1, 1), ws1.cels(LR, 4))
|
8
8
|
|