Excel VBA質問箱 IV

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

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


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

8029 / 13658 ﾂﾘｰ

←次へ　｜　前へ→

▼

【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

とすればよいと気づきました。


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

8029 / 13658 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free