質問編集履歴
2
アドバイスいただいてからも行き詰っていることと、試したソースコードを追記しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -70,4 +70,62 @@
|
|
|
70
70
|
|
|
71
71
|
|
|
72
72
|
|
|
73
|
-
下記は、アドバイスをいただいてから試してみた
|
|
73
|
+
下記は、アドバイスをいただいてから試してみたソースコードと
|
|
74
|
+
|
|
75
|
+
まだ行き詰っていることです。
|
|
76
|
+
|
|
77
|
+
|
|
78
|
+
|
|
79
|
+
試したソース
|
|
80
|
+
|
|
81
|
+
```
|
|
82
|
+
|
|
83
|
+
Set pasteCell = pasteWs.Cells(pasteWs.Rows.Count, "D").End(xlUp).Offset(0, 0)
|
|
84
|
+
|
|
85
|
+
|
|
86
|
+
|
|
87
|
+
Dim sagyokingakuCell As Excel.Range
|
|
88
|
+
|
|
89
|
+
With copyWs
|
|
90
|
+
|
|
91
|
+
Set sagyokingakuCell = _
|
|
92
|
+
|
|
93
|
+
.Range( _
|
|
94
|
+
|
|
95
|
+
.Range("B37"), _
|
|
96
|
+
|
|
97
|
+
.Range("B37").End(xlToRight).End(xlDown) _
|
|
98
|
+
|
|
99
|
+
)
|
|
100
|
+
|
|
101
|
+
|
|
102
|
+
|
|
103
|
+
End With 'copyWs
|
|
104
|
+
|
|
105
|
+
|
|
106
|
+
|
|
107
|
+
|
|
108
|
+
|
|
109
|
+
'sagyokingakuCell.Copy
|
|
110
|
+
|
|
111
|
+
'pasteCell.PasteSpecial Paste:=xlPasteValues, _
|
|
112
|
+
|
|
113
|
+
' Operation:=xlNone, _
|
|
114
|
+
|
|
115
|
+
' SkipBlanks:=False, _
|
|
116
|
+
|
|
117
|
+
' Transpose:=False
|
|
118
|
+
|
|
119
|
+
pasteCell.Value() = sagyokingakuCell.Value()
|
|
120
|
+
|
|
121
|
+
|
|
122
|
+
|
|
123
|
+
|
|
124
|
+
|
|
125
|
+
```
|
|
126
|
+
|
|
127
|
+
行き詰っていること
|
|
128
|
+
|
|
129
|
+
複数行転記したいが、画像の黄色セルしか転記されない。
|
|
130
|
+
|
|
131
|
+
|
1
アドバイスいただいてからも行き詰っていることと、試したソースコードを追記しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -65,3 +65,9 @@
|
|
|
65
65
|
|
|
66
66
|
|
|
67
67
|
※転記元のエクセルシートでは、B37からH37までが１個のセルに結合されています。
|
|
68
|
+
|
|
69
|
+
|
|
70
|
+
|
|
71
|
+
|
|
72
|
+
|
|
73
|
+
下記は、アドバイスをいただいてから試してみたことと結果
|