現在、下記のコードを利用しています。
Sub aaaa()
Dim ws13 As Object
Dim ws15 As Object
Dim targetWord As String
Set ws13 = Worksheets("Sheet13")
Set ws15 = Worksheets("Sheet15")
maxrow = ws13.Cells(Rows.Count, "A").End(xlUp).Row
maxC = ws13.Cells(2, Columns.Count).End(xlToLeft).Column
maxR = ws15.Cells(Rows.Count, "A").End(xlUp).Row + 1
targetWord = ws15.Range("A1")
With ws13
i = 2
Do Until .Cells(i, 12) <> targetWord
.Range(.Cells(2, 2), .Cells(i, maxC - 1)).Copy
ws15.Cells(maxR, 2).PasteSpecial xlPasteAll, Transpose:=True
i = i + 1
Loop
For j = maxrow To 2 Step -1
If .Cells(j, 12) = targetWord Then
.Range(j & ":" & j).Delete
End If
Next j
End With
End Sub
特定のワードが無くなるまで、転記しています。
問題なく作動するのですが、
特定のワードが無くなるまでではなく、特定のワードの範囲を選択して、転記すると書き直したいのです。
同一グループを選択するというコードは、どのように記載するのでしょうか?
お手数をおかけしますが、ご教示をお願いします。
No.1ベストアンサー
- 回答日時:
こんばんは
少しなさりたい事が分からないのですが、
.Range(.Cells(2, 2), .Cells(i, maxC - 1)).Copy
ws15.Cells(maxR, 2).PasteSpecial xlPasteAll, Transpose:=True
の部分を選択に変える場合は
With ws13
i = 2
Dim r As Range
Do Until .Cells(i, 12) <> targetWord
If r Is Nothing Then
Set r = .Range(.Cells(2, 2), .Cells(i, maxC - 1))
Else
Set r = Union(r, .Range(.Cells(2, 2), .Cells(i, maxC - 1)))
End If
'.Range(.Cells(2, 2), .Cells(i, maxC - 1)).Copy
'ws15.Cells(maxR, 2).PasteSpecial xlPasteAll, Transpose:=True
i = i + 1
Loop
.Activate
If Not r Is Nothing Then r.Select
'For j = maxrow To 2 Step -1
'If .Cells(j, 12) = targetWord Then
'.Range(j & ":" & j).Delete
'End If
'Next j
End With
こんな感じかな、、元もコードはコメントとして残しています
.Activateは違うシートで実行された場合のエラー回避
>特定のワードの範囲を選択して
この場合は、どのような条件を考えられているのでしょう?
現在はキーワードが一致しなくなるまで上からループ
例えば、空白があるなど条件が設定できるのならループを抜ける条件に
加えれば良い事になります。
よくわからなかったので、選択する所だけコードサンプルにしてみました
コピーする時は Selection.Copyで
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) vba 転記するときの最終行について 2 2022/09/03 09:31
- Visual Basic(VBA) 【VBA】特定のワードが入っている行全体を塗りつぶしたい 4 2022/04/20 15:22
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) ExcelVBAでDo Until loopのネスト、IF文を使って一致する物と一致しない物としたい 11 2022/12/24 17:46
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
access2003 クエリSQL文に...
-
1、Rstudioで回帰直線を求める...
-
1日に1人がこなせるプログラム...
-
JavaScriptの定数名が取り消し...
-
PreviewKeyDownイベントが2回...
-
2つのチェックボックスを制御
-
COBOLの文法
-
TVリモコン設定(SMILE KIDS)
-
VB .net コントロールのプロパ...
-
特定行の背景色を変えたいのですが
-
Outlook VBAについて
-
Excelの操作方法を教えてくださ...
-
GrapeCityのSpreadについて
-
みなさまはどのようにプログラ...
-
Exel VBA 別ブックから該当デ...
-
ACCESSユニオンクエリでORDER B...
-
Nullの使い方が不正です。
-
ユーザーフォームで銀行に対応...
-
VBAでxmlから特定の文字を変数...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
過剰なオブジェクト指向脳から...
-
1、Rstudioで回帰直線を求める...
-
1日に1人がこなせるプログラム...
-
Exel VBA 別ブックから該当デ...
-
access2003 クエリSQL文に...
-
pythonにてseleniumを使うも、...
-
access2021 VBA メソッドまたは...
-
chatgptでつくってもらったコー...
-
パイソンプログラム
-
Gitのクローンについて
-
ExcelのVBAコードについて教え...
-
JANコードとPOSコードは同じ?
-
sinカーブの表示のさせ方
-
COBOLの文法
-
特定行の背景色を変えたいのですが
-
JavaScriptの定数名が取り消し...
-
アルファベットに付いて質問し...
-
◾️Excel VBA 統合について Cons...
-
変数名「cur」について
おすすめ情報