- 722 名前：デフォルトの名無しさん mailto:sage [2008/02/10(日) 21:28:24 ]
- >>721
減算で。
Sub test001()
Range("A1").Resize(20).Copy Range("C1").Resize(20)
Range("B1").Copy
Range("C1").Resize(20).PasteSpecial Paste:=xlPasteAll, Operation:=xlSubtract, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
