- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：エクセル VBA 特定文字がある行を別シートに移動）
エクセルVBAで特定文字がある行を別シートに移動する方法
このQ&Aのポイント
- エクセルVBAを使用して、特定の文字が入力されている行を別のシートに移動する方法を教えてください。
- 質問者は、エクセルのI列に特定の文字が入力されている行を切り取り、別のシートに貼り付けるVBAコードを作成したいと考えています。
- 質問者は、特定の文字が入力されている行を移動させる際、下の行を上にシフトさせる処理も含まれるVBAコードを必要としています。
- asamiya
- お礼率33% (1/3)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
とりあえず△の方をサンプルとして作りました。 ×の方はこれを改造してください。 Sub Sankaku() 'Sheet2の挿入位置(C列は結合セルではなく、必ず何か入っている事） nMax2 = Sheets("Sheet2").Cells(Rows.Count, 3).End(xlUp).Row + 1 With Sheets("Sheet1") nMax1 = .Cells(Rows.Count, 9).End(xlUp).Row For i = nMax1 To 2 Step -2 If .Cells(i, 9) = "△" Then 'A～J列を移動対象とする .Range(.Cells(i, 1), .Cells(i + 1, 10)).Copy Sheets("Sheet2").Cells(nMax2, 1).Insert Shift:=xlDown .Range(.Cells(i, 1), .Cells(i + 1, 10)).Delete Shift:=xlUp End If Next i End With End Sub
