いつもお世話になっております。
https://oshiete.goo.ne.jp/qa/13311940.html
の質問をした者です。
この度、上記のVBAに繰り返し処理と【VAIO】の条件に加え【HP】も条件とする場合、
どの様な構文になるのかのご教示をいただきたく質問させていただきました。
Sub Test()
Dim rr As Range
Dim rf As Range
Set rr = Range("B3", Cells(Rows.Count, "B").End(xlUp))
Set rf = rr.Find("VAIO", , xlValues, xlWhole)
If rf Is Nothing Then
MsgBox "検索値は見つかりませんでした"
Set rr = Nothing
Exit Sub
End If
Range("C1:F1").Copy
rf.Offset(, 6).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Set rr = Nothing
Set rf = Nothing
End Sub
どうぞよろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
こんな感じですかな?
Sub megu_2()
Dim rr As Range
Dim rf As Range
Dim sn, F_add As String
Set rr = Range("B3", Cells(Rows.Count, "B").End(xlUp))
For Each sn In Array("VAIO", "HsP", "HP")
Set rf = rr.Find(sn, , xlValues, xlWhole)
If rf Is Nothing Then
MsgBox "検索値は見つかりませんでした :" & sn
Else
F_add = rf.Address
End If
Do
If rf Is Nothing Then Exit Do
Range("C1:F1").Copy
rf.Offset(, 6).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Set rf = rr.FindNext(rf)
Loop Until rf.Address = F_add
Set rf = Nothing
Next
Set rr = Nothing
End Sub
めぐみん様、先日に引き続きVBAの構築ありがとうございます。
こちらのVBAで理想の処理が実現できました!
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA 2 2023/06/19 20:48
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Excel(エクセル) マクロで列を加えたら上手くいかなくなりました。 2 2022/05/23 17:59
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) シフト表のコマで「ブロック」されている前の時間の「出」を同一列の「休」と入れ替えたいがふぇきません。 2 2023/08/02 18:49
- Excel(エクセル) EXCEL マクロで行を挿入して貼り付けようとするとエラーになる。 2 2022/05/24 09:43
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Visual Basic(VBA) ワークシートごとに計算結果 2 2022/04/30 22:00
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コンパイルエラー <identifier...
-
VB6.0でのTextboxの高さ変更
-
Enterキーでボタンを押すにはど...
-
JPanelの切り替えと再描画
-
javaで文字数制限するには?
-
java junit list同士の比較方法
-
JFrameとJPanelの最大化について
-
ボタンクリック後パネルを再描...
-
4択クイズでのランダム出題の...
-
VBAの繰り返し処理表記と複数の...
-
JTable の 列幅を個別に設定す...
-
ArrayListの使い方について(初...
-
タスクトレイのメニュからウィ...
-
エラーで式の開始が不正ですと...
-
【Swing】JPanel クラス外から...
-
C言語のポインターに関する警告
-
ジャバスクリプトについて。
-
System.err. printlnとSystem.o...
-
1~100までの数字を表示し、か...
-
javaで質問です。 文字列2023/2...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
java junit list同士の比較方法
-
EXECLの行を削除
-
JPanelの切り替えと再描画
-
TextAreaでの文字の色
-
最後の行に移動するには?
-
コンパイルエラー <identifier...
-
連番をオブジェクト名の最後に...
-
JDialogを閉じた時の処理
-
JPanelの重ね方/OverlayLayout他
-
JTableの列ヘッダ
-
ボタンクリック後パネルを再描...
-
【Swing】JPanel クラス外から...
-
4択クイズでのランダム出題の...
-
次のように書いたのですが、ウ...
-
エラーで式の開始が不正ですと...
-
KeyListenerの使い方について
-
JavaでのSwingを使った簡易電卓...
-
あるコンボボックスを選択する...
-
ArrayListの使い方について(初...
-
VB6.0でのTextboxの高さ変更
おすすめ情報