Excel VBA質問箱 IV

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

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


59570 / 76738 ←次へ | 前へ→

【21854】Re:Findで見つかったセルを含む列全体を切り取る方法
お礼  わかりません  - 05/2/2(水) 11:35 -

引用なし
パスワード
   本当に助かりました!
ありがとうございます!

▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>findをつかって見つけた「値」がある列をすべて切り取るにはどうしたらいいですか?
>
>列全体を切り取ることはできますか?
>以下のような感じでできると思います。
>
>Sub Macro1()
> Dim c As Range
> 
> With Worksheets(1).Cells
>  Set c = .Find(検索文字列, LookIn:=xlValues)
>  If Not c Is Nothing Then
>   'Findの結果のセルを含む列全体を切り取る
>   Columns(c.Column).Cut
>   'Findの結果のセルの右隣に貼り付ける
>   Cells(1, c.Column + 1).Select
>   ActiveSheet.Paste
>  End If
> End With
>End Sub

1 hits

【21842】selectionの指定のしかた・・・ たすけてください 05/2/1(火) 20:02 質問
【21843】Re:Findで見つかったセルを含む列全体を切... かみちゃん 05/2/1(火) 20:14 回答
【21854】Re:Findで見つかったセルを含む列全体を切... わかりません 05/2/2(水) 11:35 お礼

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