マクロ初心者です、お世話になります。
添付した資料の様に、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
上ではコピーまではできますが、貼り付けという行動が失敗しましたというメッセージが出てしまいます。
すごく初歩的な質問かと思いますが、どなたか教えてくださればうれしいです。
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で特定の項目の重複のみを排...
-
Zend_DBを使ったselectで文字が...
-
likeとjoinで詰まってます。助...
-
OnNotifyでカーソル変化を禁止...
-
for whichの使い方
-
差し込み後、元データを変更し...
-
pythonにてseleniumを使うも、...
-
マイクラPC版のコマンドで効率...
-
グループ毎の最大値を持つデー...
-
次の並び替え問題を教えてくだ...
-
Exel VBA 別ブックから該当デ...
-
処理件数を非表示にしたい
-
エクセルで最後の文字だけ置き...
-
SQL文で、合計が0のレコードを...
-
chatgptでつくってもらったコー...
-
特定の文字列で列を区切るには?
-
英語ができる方、問題をお願い...
-
ExcelのVBAコードについて教え...
-
パイソンプログラム
-
広告ブロッカーのアドカードと...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SQLで特定の項目の重複のみを排...
-
バッチでcsvファイルの指定のカ...
-
COBOLについて
-
リストビューの項目の内容を変...
-
DataViewで複数条件の...
-
php mysql で WHERE句内に変数...
-
Zend_DBを使ったselectで文字が...
-
fgetcsvでCSVを取得した際のnul...
-
ListViewのカラムの色の変更
-
google formsを使ったタスク依...
-
COBOL プログラミング
-
DataGridView 右詰め
-
初心者)DataGridViewの入力桁...
-
Pythonについて
-
前回ご教授いただいたコードに...
-
FormulaR1C1でSUMIF変数指定
-
C# リストビューの値を取得
-
このvbaで指定したフォルダから...
-
VB6リストボックスでの文字...
-
Chromeのデベロッパーツール プ...
おすすめ情報