回答編集履歴
1
説明の修正
answer
CHANGED
|
@@ -10,7 +10,7 @@
|
|
|
10
10
|
'コピペは以下でも可
|
|
11
11
|
'pasteCell.Value() = mitumoriCell.Value()
|
|
12
12
|
```
|
|
13
|
-
上記の、Copy と PasteSpecial で、クリップボードを使用して、コピー＆ペーストしているのでこれはコメント
|
|
13
|
+
上記の、`Copy` と `PasteSpecial` で、クリップボードを使用して、コピー＆ペーストしているのでこれはコメントにして、「コピペは以下でも可」のコードのコメントを外せば、クリップボードを使用せずに転記できるのでエラーは出ないし、処理も高速です。
|
|
14
14
|
|
|
15
15
|
修正コード
|
|
16
16
|
```VBA
|
|
@@ -23,18 +23,7 @@
|
|
|
23
23
|
pasteCell.Value() = mitumoriCell.Value()
|
|
24
24
|
```
|
|
25
25
|
|
|
26
|
-
あと、
|
|
26
|
+
あと、これ以降のコードの `Copy` と `PasteSpecial` の部分も同様にコメントにして、「コピペは以下でも可」の次のコードをコメントを外して修正してください。
|
|
27
27
|
|
|
28
|
-
```VBA
|
|
29
|
-
'suryo_kingakuCell.Copy
|
|
30
|
-
'pasteCell.PasteSpecial Paste:=xlPasteValues, _
|
|
31
|
-
' Operation:=xlNone, _
|
|
32
|
-
' SkipBlanks:=False, _
|
|
33
|
-
' Transpose:=False
|
|
34
|
-
'コピペは以下でも可
|
|
35
|
-
With suryo_kingakuCell
|
|
36
|
-
pasteCell.Resize(.Rows.Count, .Columns.Count).Value() = .Value()
|
|
37
|
-
End With 'suryo_kingakuCell
|
|
38
|
-
```
|
|
39
28
|
|
|
40
29
|
前の回答者の[imihito](https://teratail.com/users/imihito)さんは、こうなることを予想していたのかな(^^)
|