回答編集履歴
1
コード微修正
test
CHANGED
|
@@ -25,8 +25,8 @@
|
|
|
25
25
|
myKeys = Dic.Keys
|
|
26
26
|
myItems = Dic.Items
|
|
27
27
|
With WorksheetFunction
|
|
28
|
-
Range("C1").Resize(
|
|
28
|
+
Range("C1").Resize(Dic.Count).Value = .Transpose(myKeys)
|
|
29
|
-
Range("D1").Resize(
|
|
29
|
+
Range("D1").Resize(Dic.Count).Value = .Transpose(myItems)
|
|
30
30
|
End With
|
|
31
31
|
|
|
32
32
|
'オブジェクトを開放する
|