Excel VBA質問箱 IV

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

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


59574 / 76732 ←次へ | 前へ→

【21843】Re:Findで見つかったセルを含む列全体を切り取る方法
回答  かみちゃん  - 05/2/1(火) 20:14 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>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
0 hits

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

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