|
質問です。
複数のファイルから必要な項目を一つのファイルにコピー&ペーストしたいのですが、
例えばセルのB1に「今日の天気」という項目があって、B2〜B99に「晴れ」や「曇り」など入力している場合、以下の構文をどう書き直せばよいですか?
*ファイルによっては、とりたい項目がCの列だったり、Dの列だったりします。
現在の構文は指定した列を取り込むようになっています。
'天気のコピー
Windows(CopyFileName).Activate
Range("B2", "B" & copyEnd).Select
Selection.Copy
'天気のペースト
Windows(PasteFileName).Activate
Range(Sup_Code & nextCopyLine).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
'天気空白対応
If ActiveCell.Value = "" Then
Range(Sup_Code & nextCopyLine) = "空白"
よろしくお願いします。
|
|