回答編集履歴
1
追記（値の代入）
answer
CHANGED
|
@@ -5,4 +5,12 @@
|
|
|
5
5
|
Workbooks("管理表イメージ - コピー").Sheets("2019年10月").Range("A3").PasteSpecial xlPasteValues
|
|
6
6
|
'Sheets(1).Range("E6").Copy _
|
|
7
7
|
'Workbooks("管理表イメージ - コピー").Sheets("2019年10月").Range("A3").PasteSpecial xlPasteValues
|
|
8
|
+
```---
|
|
9
|
+
＜追記＞セルに値を代入するやり方もありますので、試してみてください。
|
|
10
|
+
```VBA
|
|
11
|
+
With Workbooks.Open(Import_File)
|
|
12
|
+
.Cells.UnMerge
|
|
13
|
+
Workbooks("管理表イメージ - コピー").Worksheets("2019年10月").Range("A3").Value = _
|
|
14
|
+
.Worksheets(1).Range("E6").Value
|
|
15
|
+
End With
|
|
8
16
|
```
|