回答編集履歴
1
追記（値の代入）
test
CHANGED
|
@@ -12,4 +12,20 @@
|
|
|
12
12
|
|
|
13
13
|
'Workbooks("管理表イメージ - コピー").Sheets("2019年10月").Range("A3").PasteSpecial xlPasteValues
|
|
14
14
|
|
|
15
|
+
```---
|
|
16
|
+
|
|
17
|
+
＜追記＞セルに値を代入するやり方もありますので、試してみてください。
|
|
18
|
+
|
|
19
|
+
```VBA
|
|
20
|
+
|
|
21
|
+
With Workbooks.Open(Import_File)
|
|
22
|
+
|
|
23
|
+
.Cells.UnMerge
|
|
24
|
+
|
|
25
|
+
Workbooks("管理表イメージ - コピー").Worksheets("2019年10月").Range("A3").Value = _
|
|
26
|
+
|
|
27
|
+
.Worksheets(1).Range("E6").Value
|
|
28
|
+
|
|
29
|
+
End With
|
|
30
|
+
|
|
15
31
|
```
|