Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8016 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【35483】ヘッダーを見つけて、その列をコピー K.K. 06/3/6(月) 17:14 質問[未読]
【35495】Re:ヘッダーを見つけて、その列をコピー Ned 06/3/6(月) 20:48 発言[未読]
【35547】自己レス K.K. 06/3/7(火) 15:54 お礼[未読]
【35483】ヘッダーを見つけて、その列をコピー
質問  K.K.  - 06/3/6(月) 17:14 -
引用なし
パスワード
   ヘッダーを見つけて、その列をコピーしたいと思っています。

「ヘッダーを見つけて」の部分は

Dim Ha1 As Integer
Ha1 = Application.Match("HA", Range("F2:F300"), 0)

で、できるのは分かったのですが、上で得たHa1を
Columns("I:I").Copy

にどうやって生かしていいか分かりません。
今までは偶然HAのヘッダーはI列にあったのですが、今後順番が入れ替わっても正しくコピーされるようにしたいと思い質問しました。
【35495】Re:ヘッダーを見つけて、その列をコピー
発言  Ned  - 06/3/6(月) 20:48 -
引用なし
パスワード
   こんにちは。何かの質問の続きでしょうか？
ヘッダーって何ですか？セルの値？
Range("I" & Ha1 + 1).Copy・・・？
【35547】自己レス
お礼  K.K.  - 06/3/7(火) 15:54 -
引用なし
パスワード
   Nedさん、レスありがとうございました。
説明が悪くてすみません。

>ヘッダーって何ですか？セルの値？
はい、F2:R2に文字が入っていて、その中からHAという文字を探して、その列をコピーしようとしています。 (【35483】でF2:F300とかいてしまいましたが、F2:R2の間違いです。)
コピーしたい列がI列と決まっているわけではなく、列の並び順が変わっても、「ヘッダーからHAの文字を探してきて、その列をコピー」という風にしたかったのですが、

Dim Ha1 As Integer
Ha1 = Application.Match("HA", Range(Cells(2, 6), Cells(2, 6).End(xlToRight)), 0)
Columns(Ha1 + 5).Copy

とすればよいと気づきました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8016 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free