Excel VBA質問箱 IV

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

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


11418 / 13644 ツリー ←次へ | 前へ→

【16179】デ−タのコピ− ぱな 04/7/20(火) 14:27 質問[未読]
【16180】Re:デ−タのコピ− Asaki 04/7/20(火) 15:03 回答[未読]
【16182】Re:デ−タのコピ− ぱな 04/7/20(火) 15:12 質問[未読]
【16183】Re:デ−タのコピ− Asaki 04/7/20(火) 15:21 回答[未読]
【16184】Re:デ−タのコピ− ぱな 04/7/20(火) 15:26 質問[未読]
【16185】Re:デ−タのコピ− Asaki 04/7/20(火) 15:55 回答[未読]
【16188】Re:デ−タのコピ− ぱな 04/7/20(火) 16:26 お礼[未読]

【16179】デ−タのコピ−
質問  ぱな  - 04/7/20(火) 14:27 -

引用なし
パスワード
   CSV形式のファイルを読み込み、特定の列の値を別のブックに貼り付けたいのですが、
空白を除く操作をするにはどうしたらいいでしょうか?
以下は自分で考えてみたソ−スですが、よい方法がありましたら教えてください。
よろしくお願いします。
Sub データ抽出()
  irows = Range("I13").End(xlDown).Row.Select
  Selection.Copy
  Windows("貼付け先.xls").Activate
  Range("D5").Select
  ActiveSheet.Paste

【16180】Re:デ−タのコピ−
回答  Asaki  - 04/7/20(火) 15:03 -

引用なし
パスワード
   こんにちは。

コードを見ると
データの最終行を「貼付け先.xls」のD5にコピー
しようとしているようですが
>特定の「列」の値を別のブックに貼り付けたいのですが
と違っているみたいです。
どっちでしょうか?

多分、このままでは動かないと思うので、少なくとも
>irows = Range("I13").End(xlDown).Row.Select

Range("I13").End(xlDown).Select
では?と思いますが。

【16182】Re:デ−タのコピ−
質問  ぱな  - 04/7/20(火) 15:12 -

引用なし
パスワード
   ▼Asaki さん:
ありがとうございます。
>コードを見ると
>データの最終行を「貼付け先.xls」のD5にコピー
>しようとしているようですが
>>特定の「列」の値を別のブックに貼り付けたいのですが
>と違っているみたいです。
>どっちでしょうか?
すみません。デ−タの最終行を取得し、I列の13〜最終行までの値をコピ−したいのですが、どうしたらいいでしょうか?

【16183】Re:デ−タのコピ−
回答  Asaki  - 04/7/20(火) 15:21 -

引用なし
パスワード
   I13 から I列最終行までを選択するには
range("I13",range("I65536").End(xlUp)).Select
といった感じでいけるのでは、と思います。

【16184】Re:デ−タのコピ−
質問  ぱな  - 04/7/20(火) 15:26 -

引用なし
パスワード
   ありがとうございます、うまくいきました。
あと空白の行を削除する方法がわかりましたら教えて頂きたいのですが。

【16185】Re:デ−タのコピ−
回答  Asaki  - 04/7/20(火) 15:55 -

引用なし
パスワード
   選択セル内で空白の行を削除します。
(複数セル選択しておくこと)
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete Shift:=xlUp

一般の 編集 >> ジャンプ >> 空白セル と同じ動きになります。
空白セルがない、1セルしか選択していない
といった場合の処理は、もう少し考える必要があります。

【16188】Re:デ−タのコピ−
お礼  ぱな  - 04/7/20(火) 16:26 -

引用なし
パスワード
   ▼Asaki さん:
あいがとうございました、もう少し考えてみます。

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