![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
マクロ初心者です、お世話になります。
添付した資料の様に、1行目に項目があり(200項目くらい)、その下にデータが並んでいます。
この中から、検索に合致した項目がある場合、列ごとコピーし最終列の隣に形式を選択して貼り付けたいです。
項目数は固定されていますが、項目の順番は毎回変わります。
下の様に自分で書いてみたのですが、うまくいきません。
Sub sumple1()
Dim r As Range
For Each r In Range("A1:ALF1")
If r.Value = "項目1" Then r.EntireColumn.Copy
Columns("GB").PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationAdd
Next r
End Sub
上ではコピーまではできますが、貼り付けという行動が失敗しましたというメッセージが出てしまいます。
すごく初歩的な質問かと思いますが、どなたか教えてくださればうれしいです。
![「【VBA】特定の文字列を含む場合、列ごと」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/6/542749889_5abadb31238d4/M.png)
No.1ベストアンサー
- 回答日時:
こんにちは!
色々やり方はありますが、一例です。
Sub Sample1()
Dim c As Range
Set c = Rows(1).Find(what:="項目1", LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then '//←念のため//
c.EntireColumn.Copy
With Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
.PasteSpecial Paste:=xlPasteValues
.Select
End With
Application.CutCopyMode = False
End If
End Sub
こんな感じではどうでしょうか?m(_ _)m
tom04様
ご親切にありがとうございます!
自分で試したところ、複数の項目検索でも、きちんと機能しました(*^▽^*)
本当にありがとうございます!
また機会があれば、よろしくお願いいたします(o_ _)o))
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA 2 2023/06/19 20:48
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
SQLで特定の項目の重複のみを排...
-
COBOL プログラミング
-
テキスト幅にあわせた表の作り...
-
初心者)DataGridViewの入力桁...
-
【VBA】特定の文字列を含む場合...
-
php mysql で WHERE句内に変数...
-
ActiveReportの書き方
-
PHP MySQL 配列データの比較
-
fgetcsvでCSVを取得した際のnul...
-
質問です How is your school l...
-
IF文、条件分岐の整理方法
-
差し込み後、元データを変更し...
-
外部参照してるキーを主キーに...
-
処理件数を非表示にしたい
-
フィルターかけた後、重複を除...
-
Access:クエリーにて集計後に...
-
Exel VBA 別ブックから該当デ...
-
エクセルで最後の文字だけ置き...
-
for whichの使い方
-
エラー 1068 (42000): 複数の主...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SQLで特定の項目の重複のみを排...
-
バッチでcsvファイルの指定のカ...
-
リストビューの項目の内容を変...
-
php mysql で WHERE句内に変数...
-
COBOLについて
-
fgetcsvでCSVを取得した際のnul...
-
DataGridView 右詰め
-
DataViewで複数条件の...
-
FormulaR1C1でSUMIF変数指定
-
初心者)DataGridViewの入力桁...
-
Sheet3から2つの条件でオートフ...
-
COBOL プログラミング
-
Access2000 の更新クエリでカウ...
-
ListView
-
ListViewのカラムの色の変更
-
[WHS]定数宣言の際にリテラル文...
-
google formsを使ったタスク依...
-
投稿 表示・非表示設定
-
VB2008 コンボボックスとテキ...
-
テキスト幅にあわせた表の作り...
おすすめ情報