Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28427 / 76807

←次へ　｜　前へ→


	【53679】必要な項目列の取り込みについて

やぎおか - 08/1/31(木) 9:45 -


	引用なし

	パスワード

質問です。

複数のファイルから必要な項目を一つのファイルにコピー＆ペーストしたいのですが、
例えばセルの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) = "空白"

よろしくお願いします。

0 hits

▼

【53679】必要な項目列の取り込みについて やぎおか 08/1/31(木) 9:45

≪