Excel VBA質問箱 IV

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

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


28358 / 76738 ←次へ | 前へ→

【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 質問
【53680】Re:必要な項目列の取り込みについて Jaka 08/1/31(木) 10:57 発言
【53681】Re:必要な項目列の取り込みについて ponpon 08/1/31(木) 13:16 発言

28358 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free