回答編集履歴
2
コード修正
answer
CHANGED
|
@@ -9,10 +9,9 @@
|
|
|
9
9
|
|
|
10
10
|
Dim i
|
|
11
11
|
|
|
12
|
-
For i = 1 To (
|
|
12
|
+
For i = 1 To (wsB.Cells(Rows.Count, 1).End(xlUp).Row)
|
|
13
|
-
waA.Range("Y1").Value = i
|
|
13
|
+
waA.Range("Y1").Value = wsB.Cells(i,1).Value
|
|
14
|
-
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True, _
|
|
15
|
-
IgnorePrintAreas:=False
|
|
16
14
|
|
|
15
|
+
'印刷処理
|
|
17
16
|
Next i
|
|
18
17
|
```
|
1
コード修正
answer
CHANGED
|
@@ -5,7 +5,7 @@
|
|
|
5
5
|
Dim wsA As WorkSheet
|
|
6
6
|
Set wsA = Worksheets("シートA")
|
|
7
7
|
Dim wsB As WorkSheet
|
|
8
|
-
Set wsB = Worksheets("シート
|
|
8
|
+
Set wsB = Worksheets("シートB")
|
|
9
9
|
|
|
10
10
|
Dim i
|
|
11
11
|
|