質問番号:4733370の質問と回答を勝手に引用させて頂きます。
セルA列にキーワードCCCが含まれていた場合に
その行を削除してSheet2に貼り付けする・・・という下のマクロを
貼り付けの部分を挿入に変更したいのですが、なにぶんマクロ初心者
の為よくわからないので教えていただけないでしょうか・・
宜しくお願い致します。
Sub キーワード切取貼付02()
Dim r As Range, ur As Range, rr As Long
Dim rd(), v
Set r = Range("A1", Range("A65536").End(xlUp)).Find(What:="CCC", LookAt:=xlPart, After:=Range("A65536").End(xlUp))
If r Is Nothing Then 'なかったら
MsgBox "ありません", vbCritical, "? ( ̄~ ̄;)う~ん "
Exit Sub '終了
Else 'あったら
Do Until r Is Nothing '対象がなくなるまで
ReDim Preserve rd(rr) '動的配列を用意
rd(rr) = r.Address(0, 0) '対象セルアドレスを配列に格納
rr = rr + 1 'カウント
r.EntireRow.Cut Destination:=Sheets("Sheet2").Cells(rr, 1) '行の切り取り貼り付け
Set r = Range("A1", Range("A65536").End(xlUp)).FindNext(r) '連続検索
Loop '繰り返し
For Each v In rd() '各配列要素を
If ur Is Nothing Then
Set ur = Range(v)
Else
Set ur = Union(Range(v), ur) 'ユニオンに
End If
Next v
ur.EntireRow.Delete 'ユニオンセルの属す行を一括削除
Set ur = Nothing
Set r = Nothing
End If
MsgBox rr & "件をSheet2に移動しました。", vbInformation, " ( ̄ー ̄)v"
End Sub
No.3ベストアンサー
- 回答日時:
No2 merlionXXです。
ではそのsheet2の表の4行目に挿入していきます。
Sub キーワード切取貼付03()
Dim r As Range, ur As Range
Dim rr As Long, x As Long
Dim rd(), v
x = Range("A" & Rows.Count).End(xlUp).Row
Set r = Range("A1", Range("A" & x)).Find(What:="CCC", LookAt:=xlPart, After:=Range("A" & x))
If r Is Nothing Then 'なかったら
MsgBox "ありません", vbCritical, "? ( ̄~ ̄;)う~ん "
Exit Sub '終了
Else 'あったら
Do Until r Is Nothing '対象がなくなるまで
ReDim Preserve rd(rr) '動的配列を用意
rd(rr) = r.Address(0, 0) '対象セルアドレスを配列に格納
rr = rr + 1 'カウント
Sheets("Sheet2").Rows(4).Insert Shift:=xlDown
r.EntireRow.Cut Destination:=Sheets("Sheet2").Cells(4, 1) '行の貼り付け
Set r = Range("A1", Range("A" & x)).FindNext(r) '連続検索
Loop '繰り返し
For Each v In rd() '各配列要素を
If ur Is Nothing Then
Set ur = Range(v)
Else
Set ur = Union(Range(v), ur) 'ユニオンに
End If
Next v
ur.EntireRow.Delete 'ユニオンセルの属す行を一括削除
Set ur = Nothing
Set r = Nothing
End If
MsgBox rr & "件をSheet2にコピーしました。", vbInformation, " ( ̄ー ̄)v"
End Sub
No.4
- 回答日時:
Sheet2のA列の最終行に追加する案で。
Sub try()
Dim r As Range
With Worksheets("Sheet1")
.Range("A1").AutoFilter 1, "CCC" '抽出する値 "CCC"
Set r = .Range(.Range("A2"), .Cells(Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeVisible)
If r.Item(1).Row > 1 Then
r.EntireRow.Copy Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
r.EntireRow.Delete
End If
.AutoFilterMode = False
End With
End Sub
一例まで。
No.2
- 回答日時:
ご提示のコードを回答した者です。
「貼り付けの部分を挿入に変更したい」という意味がわからないのですが・・・。
現在はSheet2の1行目から順に貼り付けていますが、そうでなく切り取った行と同じ行番号のSheet2にもって行くということ?
それとも切り取らずに同じ行番号のSheet2にもって行くということ?
あるいは????
この回答への補足
早速のお返事ありがとうございます。
sheet2にもsheet1と同じ形式の表があるので、そのsheet2の表の
4行目、もしくは表の最後に挿入したいと考えています。
貼り付けですと、元々あるデータが上書きされてしまうので・・
わかりづらい質問で申し訳ありませんが、宜しくお願いします。
No.1
- 回答日時:
その行を削除してSheet2に挿入する作業を「マクロの記録」すればコードが解ります。
「エクセルVBA」でマクロの作成
http://kiyopon.sakura.ne.jp/vba/index.htm
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) 形式を選択して貼り付け 以下のコードで「元」シートと「先」シートのA列に同じ値があったら指定範囲をコ 5 2022/11/11 07:30
- Visual Basic(VBA) VBAの繰り返し処理表記と複数の処置条件について 1 2023/01/23 20:08
- Excel(エクセル) マクロで列を加えたら上手くいかなくなりました。 2 2022/05/23 17:59
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Excel(エクセル) EXCEL マクロで行を挿入して貼り付けようとするとエラーになる。 2 2022/05/24 09:43
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA 2 2023/06/19 20:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
現在日本一のマンモス団地は?
-
5千平米って何坪?
-
一軒家でも団地と言えますか?
-
都営住宅のお風呂について(平...
-
市営住宅に住む予定なのですが...
-
中古の団地で購入しても大丈夫...
-
団地なのに『江戸間6畳』???
-
昭和40年代の5階建団地。住...
-
彼の実家が団地でした。
-
団地は民度低いですか?
-
トイレのカギの閉め方が分かり...
-
古い団地(公団住宅)って、み...
-
団地内で駐車してはいけません...
-
団地の1階
-
一人暮らし中です。 築50年の団...
-
団地の1階に住んでいるとイライ...
-
団地が貧乏だと言われる理由を...
-
総合設計制度と特定街区
-
団地に住むメリットとデメリッ...
-
築40年の団地 分譲
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
彼の実家が団地でした。
-
市営住宅に住む予定なのですが...
-
団地が貧乏だと言われる理由を...
-
微妙な距離の通勤手当の支給に...
-
現在日本一のマンモス団地は?
-
団地の1階
-
最近普通の一軒家に住むより、...
-
一軒家でも団地と言えますか?
-
団地内で駐車してはいけません...
-
昭和40年代の5階建団地。住...
-
トイレのカギの閉め方が分かり...
-
中古の団地で購入しても大丈夫...
-
同じ棟に住む障害者の奇声に悩...
-
彼氏が1人っ子、団地住み、片親...
-
古い団地(公団住宅)って、み...
-
団地は民度低いですか?
-
集合住宅の近隣住民のゴミ捨て...
-
団地の1階に住んでいるとイライ...
-
UR賃貸の団地のサッシ取替え...
-
団地住みの友達に偏見をもって...
おすすめ情報