回答編集履歴
1
漢字に修正
answer
CHANGED
|
@@ -3,7 +3,7 @@
|
|
|
3
3
|
ResultSheet.Range("C" & Copy).PasteSpecial
|
|
4
4
|
```
|
|
5
5
|
のように PasteSpecial の引数を省略すると、既定値の XlPasteAll(書式も含めてすべてコピー)になりますのでコピー元に罫線がなければペースト先の罫線も消えてしまいますね。
|
|
6
|
-
値のみの貼り付けなら、xlPasteValues をして
|
|
6
|
+
値のみの貼り付けなら、xlPasteValues を指定してください。
|
|
7
7
|
|
|
8
8
|
```vba
|
|
9
9
|
DataSheet.Range("G" & i).Copy
|