回答編集履歴
2
補足追加
test
CHANGED
|
@@ -44,7 +44,9 @@
|
|
|
44
44
|
|
|
45
45
|
|
|
46
46
|
'Transpose処理（どっちでも同じ動作。理解しやすい方を使用してください）-----------------------------------------------
|
|
47
|
-
|
|
47
|
+
'Resize(1,3)は「(コピーする範囲を)1行３列に拡張」という意味です。データ2以降が4列以上あるなら3の部分を変更してください。
|
|
48
|
+
|
|
49
|
+
|
|
48
50
|
'①worksheetFunction.Transposeを使う
|
|
49
51
|
rngPst.Resize(3, 1).Value = WorksheetFunction.Transpose(rngCpy.Resize(1, 3).Value)
|
|
50
52
|
|
1
画像添付ミス修正
test
CHANGED
|
@@ -65,4 +65,4 @@
|
|
|
65
65
|
|
|
66
66
|
```
|
|
67
67
|
|
|
68
|
-
|
|
68
|
+
|