回答編集履歴
1
説明追記
answer
CHANGED
|
@@ -8,4 +8,11 @@
|
|
|
8
8
|
```vba
|
|
9
9
|
Worksheets(1).Range(Worksheets(1).Cells(K2S, "B"), Worksheets(1).Cells(K2E, "CH")).Value(xlRangeValueXMLSpreadsheet) _
|
|
10
10
|
= Worksheets(2).Range(Worksheets(2).Cells(K2S, "B"), Worksheets(2).Cells(K2E, "CH")).Value(xlRangeValueXMLSpreadsheet)
|
|
11
|
+
```
|
|
12
|
+
|
|
13
|
+
下記のようにアドレス文字列で指定するほうが読みやすいかもしれません。
|
|
14
|
+
|
|
15
|
+
```vba
|
|
16
|
+
Ws1.Range("B" & K2S & ":CH" & K2E).Value(xlRangeValueXMLSpreadsheet) _
|
|
17
|
+
= ws2.Range("B" & K2S & ":CH" & K2E).Value(xlRangeValueXMLSpreadsheet)
|
|
11
18
|
```
|