Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10全般 : Excel 2016)
見出し行に特定の文字が含まれている列の全てを選択したい
投稿日時: 21/07/04 16:14:21
投稿者: はるかたいら

VBAの件で教えて下さい。
 
データ集計をやっています。20項目くらい。500行位あります。
 
1行目が見出し行があります。
 
1.見出し行の特定の項目を選択します。
2.特定の項目が含まれる列の全てを選択します。
3.2.をコピーします。
3.別のシートのA列に張り付けます。
4.同様に、見出し行の他の特定の項目を選択して含まれている列の全てを選択
してコピー、別のシートのB列に張り付け
 
以上の繰り返しとなります。
見出し行の特定の項目を選択して列を選択すると
いうところが特に分からないので教えて頂きたく思います。
よろしくお願いします。
 
 
 
 
 
 

回答
投稿日時: 21/07/04 17:01:56
投稿者: WinArrow
投稿者のウェブサイトに移動

質問
 
>1.見出し行の特定の項目を選択します。
 
特定の文字列が含まれている1行目のセルを取得したい
 
という理解でよいでしょうか?

投稿日時: 21/07/04 20:02:38
投稿者: はるかたいら

早速ありがとうございます。
 
はい、ご確認の通りとなります。
見出し行に含まれる特定の文字列を取得して、
その列全てを選択したいです。
 
よろしくお願いします。

回答
投稿日時: 21/07/04 20:14:34
投稿者: WinArrow
投稿者のウェブサイトに移動

検索には、FINDメソッドを使用します。
複数あると面ますので、FINDNEXTを使ってループさせます。
 
ネット検索で、サンプル例がたくさんヒットするので、
参考に自分でコードを作成してみてください。
 
 

投稿日時: 21/07/04 21:24:56
投稿者: はるかたいら

ありがとうございます。
Findメソッドを利用する事を教えて頂きありがとうございます。
 
では、見つけた文言を含む列を選択するのはどのようにすれば
良いのでしょうか。

回答
投稿日時: 21/07/04 21:47:56
投稿者: WinArrow
投稿者のウェブサイトに移動

FINDメソッドは、
ヒットすると、レンジオブジェクトを返します。
ヒットしたかは、
If レンジ IS Nothing Then
で判定します。IS Nothingは、ヒットしなかった場合の判定になります。
 
列全体を取得するには、
レンジ.EntireColumn を使ってコピーし。貼り付け先頭セルは貼付けます。

投稿日時: 21/07/04 21:59:59
投稿者: はるかたいら

ありがとうございました。
試してみます。