回答編集履歴
1
誤字の修正
test
CHANGED
|
@@ -45,7 +45,7 @@
|
|
|
45
45
|
.Range("B4").CurrentRegion.ClearContents '表データを削除
|
|
46
46
|
.Range("B4").Resize(UBound(data, 1), UBound(data, 2)).Value = data '配列をセル範囲に出力
|
|
47
47
|
|
|
48
|
-
'
|
|
48
|
+
'後略
|
|
49
49
|
```
|
|
50
50
|
|
|
51
51
|
> ④行列を入れ替えしたデータのすぐ下の行に別のクエリをエクスポートする
|