エクセル2010を使っています。
画像の様な Sheet2 があり、A列にたくさん文字が入力されています。
その中から、イニシャルテスト の文字を探し、該当セルのT列に Sheet3のT1~CD25を貼り付けたいと思います。
行数は10万行ほどありますので、負担の掛からない形で貼り付けできればと思います。
イニシャルテストの文字がA1に有れば、Sheet3のT1~CD25を Sheet2のT1に貼り付ける。
A27にも有りますので、Sheet3のT1~CD25をT27にも貼り付けます。
やりたいのは以上です、詳しい方、よろしくお願い致します。
No.2ベストアンサー
- 回答日時:
こんな感じだと思いますが、
T1:CD25の範囲は25行あります、イニシャルテストの文字は25以上空いて存在するのでしょうか?
Sub macro()
Dim C As Range, A As String
Set C = Range("A:A").Find("イニシャルテスト", LookAt:=xlWhole)
If Not C Is Nothing Then
A = C.Address
Do
Worksheets("Sheet3").Range("T1:CD25").Copy Range("T" & C.Row)
Set C = Range("A:A").FindNext(C)
Loop Until A = C.Address
End If
End Sub
回答ありがとうございます。
ばっちりできました、助かりました。
仰る通り、25行以内には イニシャルテスト の文字は出現しませんでした、よってBAとさせて頂きます。
ありがとうございました!
No.1
- 回答日時:
こんばんは!
↓のコードを標準モジュールにコピー&ペーストしてマクロを実行してみてください。
Sub Sample1()
Dim lastRow As Long
Application.ScreenUpdating = False
With Worksheets("Sheet2")
.Rows(1).Insert
.Range("A1") = "ダミー"
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("A1").AutoFilter field:=1, Criteria1:="イニシャルテスト"
Worksheets("Sheet3").Range("T1:CD25").Copy
Range(.Cells(2, "T"), .Cells(lastRow, "T")).SpecialCells(xlCellTypeVisible).Select
Selection.PasteSpecial Paste:=xlPasteAll
.AutoFilterMode = False
.Rows(1).Delete
.Range("T1").Select
End With
Application.ScreenUpdating = True
MsgBox "処理完了"
End Sub
こんな感じではどうでしょうか?m(_ _)m
この回答への補足
回答ありがとうございます。
早速試してみました。
お手数頂き、申し訳ないのですが、一つ目 A1にイニシャルテストの文字があり、それには貼り付けが出来るのでうが、その一つだけで終えてしまいます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) こんなことできますか?例えば、sheetに貼り付けた図形のタイトルを、セルA1の文字で表示する。 5 2022/04/22 15:25
- Excel(エクセル) Excelに文字データのみを貼り付けたい 8 2023/05/03 15:38
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Excel(エクセル) 文字化け。メモ帳でUTF-8に変換後、エクセルへ貼り付けたいです。 3 2022/08/14 07:21
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Excel(エクセル) エクセルの表示形式について教えてください あるセルの「A」という値と、別のセルの「B」という値を組み 4 2023/02/21 21:55
- Excel(エクセル) SUMIFSと日付変換 10 2023/04/16 15:38
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- Excel(エクセル) エクセルの書式設定の表示形式で設定した文字を文字列としてコピーしたい 1 2022/12/21 10:41
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの数式について教えてくだ...
-
エクセルの「赤」の印刷がうま...
-
エクセル おすすめフォント
-
pdfの表をexcelにはりつけて計...
-
[オプション]の[アクセスビリテ...
-
Excelのデーターを消して保存し...
-
エクセルの「入力規則」のプル...
-
エクセルで特定のセルに入力が...
-
関数の説明
-
CSVファイルについて質問です。
-
エクセルで不等号記号(≠)が上に...
-
UNIQUE関数が使えないバージョ...
-
Excelについて
-
【マクロ】名前を保存する際に...
-
エクセルであるセルに数字を入...
-
Excelにいついて質問です。
-
Excelの関数について教えてくだ...
-
Excel ピボットテーブルで日付...
-
Excelでセルの値が同じか...
-
エクセルでの作業計算方法について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報