回答編集履歴
1
コーディングの指標となるサンプルを追記しました。
answer
CHANGED
|
@@ -7,4 +7,24 @@
|
|
|
7
7
|
かならず最終行であるとは限らないのであれば、システム用の変数(処理したい行数。カウンタ。)を非表示のシートを作ったりしてどこかに保存する仕組みをつくらないといけませんね。ボタンをクリックするごとに挙動を変えるには工夫が必要ですので。
|
|
8
8
|
|
|
9
9
|
あと質問文が書式崩れしていたり非常に汚く読みづらいです。
|
|
10
|
-
ここは後から同じ問題に直面された方も利用できるようにしている場で、みなさんもあなたではなく大多数の誰かのために回答を書いています。以後の利用では気を付けてあげてください。
|
|
10
|
+
ここは後から同じ問題に直面された方も利用できるようにしている場で、みなさんもあなたではなく大多数の誰かのために回答を書いています。以後の利用では気を付けてあげてください。
|
|
11
|
+
|
|
12
|
+
参考までにループ処理する場合のサンプルマクロを記述します
|
|
13
|
+
(http://excelution.net/loop-processing-template-of-excel-vba/から引用→修正)
|
|
14
|
+
```vba
|
|
15
|
+
Sub For_Next_Sample()
|
|
16
|
+
|
|
17
|
+
'変数の宣言
|
|
18
|
+
Dim i As Long '<== 行数をカウントアップするための変数
|
|
19
|
+
|
|
20
|
+
'↓ここからループのスタートです。データのある最終行までが対象です。
|
|
21
|
+
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
|
|
22
|
+
|
|
23
|
+
'ループ内で繰り返し処理される内容です。ttyp03さんの内容を使っています。
|
|
24
|
+
Worksheets("Sheet2").Cells(i,1).Value = Worksheets("Sheet1").Cells(i,1).Value
|
|
25
|
+
|
|
26
|
+
Next i
|
|
27
|
+
'↑ここまでがループです
|
|
28
|
+
|
|
29
|
+
End Sub
|
|
30
|
+
```
|