回答編集履歴
1
コードを挿入しました
answer
CHANGED
|
@@ -10,9 +10,11 @@
|
|
|
10
10
|
また、必ずA1からデータがスタートし、空欄などもなくデータが並んでいるのであれば、
|
|
11
11
|
質問者さんの方法でなくとも
|
|
12
12
|
|
|
13
|
+
```VBA
|
|
13
14
|
Dim l as Variant
|
|
14
15
|
Range("A1").End(xlToRight).Select
|
|
15
16
|
l = Selection.Column
|
|
17
|
+
```
|
|
16
18
|
|
|
17
19
|
などで一番右端の列が取得できるのでこのように列番号を拾ってやればいい気もします。
|
|
18
20
|
なんとなくですが、質問者さんのやりたいことはこのサイトに記載されている内容で解決しませんか？
|