回答編集履歴

1

追加

2020/09/01 08:20

投稿

radames1000
radames1000

スコア1925

test CHANGED
@@ -2,4 +2,48 @@
2
2
 
3
3
  [セルのコピー&値の貼り付け(PasteSpecial)](https://excel-ubara.com/excelvba1/EXCELVBA341.html)
4
4
 
5
+ ```vba
6
+
7
+ Worksheets("Sheet1").Range("A1:B10").Copy
8
+
9
+ Worksheets("Sheet2").Range("A1").PasteSpecial _
10
+
11
+                  Paste:=xlPasteValues, _
12
+
13
+                  Operation:=xlNone, _
14
+
15
+                  SkipBlanks:=False, _
16
+
17
+                  Transpose:=False
18
+
19
+ ```
20
+
21
+
22
+
5
23
  [ブックからブックへの貼り付け](https://qiita.com/tobigitsune/items/4ef98a1fb9f1c03c297a#%E3%83%96%E3%83%83%E3%82%AF%E3%81%8B%E3%82%89%E3%83%96%E3%83%83%E3%82%AF%E3%81%B8%E3%81%AE%E8%B2%BC%E3%82%8A%E4%BB%98%E3%81%91)
24
+
25
+ ```vba
26
+
27
+ With Workbooks.Open("貼り付けたいブック.xls")
28
+
29
+ '「貼付元」シートを全部コピー
30
+
31
+ .Worksheets("貼付元").Cells.Copy
32
+
33
+ 'このブックの「貼付先」シートへ値貼り付け
34
+
35
+ ThisWorkbook.Worksheets("貼付先").Range("A1").PasteSpecial _
36
+
37
+ xlPasteValuesAndNumberFormats
38
+
39
+ 'コピー中状態を解除
40
+
41
+ Application.CutCopyMode = false
42
+
43
+ 'ブックを保存せずに閉じる
44
+
45
+ .Close False
46
+
47
+ End With
48
+
49
+ ```