回答編集履歴
1
追記
answer
CHANGED
|
@@ -18,4 +18,23 @@
|
|
|
18
18
|
|
|
19
19
|
`Range("A5", Cells(lr, lc)).Copy`
|
|
20
20
|
|
|
21
|
-
とするだけでいいですね。
|
|
21
|
+
とするだけでいいですね。
|
|
22
|
+
|
|
23
|
+
追記
|
|
24
|
+
---
|
|
25
|
+
最終行、最終列の取得に関しては下記に纏められてます。
|
|
26
|
+
[No.8 ワークシートの最終行、最終列を取得する](http://www.niji.or.jp/home/toru/notes/8.html)
|
|
27
|
+
いろいろな方法がありますが、それぞれ微妙に異なりますので留意しておくといいでしょう。
|
|
28
|
+
|
|
29
|
+
今回は、ピボットテーブルということなので、空の列や空の行はないと思われますので、CurrentRegionを使うのが一番シンプルかと思います。
|
|
30
|
+
|
|
31
|
+
```vba
|
|
32
|
+
Worksheets(2).Range("A5").CurrentRegion.Copy
|
|
33
|
+
bulk2.Worksheets(1).Range("A2").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
|
|
34
|
+
```
|
|
35
|
+
あるいは、PivotTablesを使うのも確実ですね。
|
|
36
|
+
|
|
37
|
+
```vba
|
|
38
|
+
Worksheets(2).PivotTables("ピボットテーブル1").TableRange1.Copy
|
|
39
|
+
bulk2.Worksheets(1).Range("A2").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
|
|
40
|
+
```
|