A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
こんばんは!
元データはSheet1にあり、Sheet2に表示するとします。
尚、Sheet1の1行目は項目行で、データは2行目以降にあるとします。
一例です。標準モジュールにしてください。
Sub Sample1()
Dim wS As Worksheet
Set wS = Worksheets("Sheet2")
With Worksheets("Sheet1")
.Range("A1").CurrentRegion.AutoFilter field:=1, Criteria1:="0200"
If .Cells(Rows.Count, "A").End(xlUp).Row > 1 Then
.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy wS.Range("A1")
End If
.AutoFilterMode = False
End With
wS.Activate
End Sub
※ 細かいエラー処理はしていません。m(_ _)m
No.3
- 回答日時:
マクロの記録で、こんなのはできます。
Sheet1から、Sheet3に貼付です。
Sheet1のA列のデータのある先頭行に、列名のようなのがあるとして、です。
Sub Macro1()
Sheets("Sheet1").Select
ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="0200"
Cells.Copy
Sheets("Sheet3").Select
Cells.Select
ActiveSheet.Paste
r = Range("A1").End(xlDown).Row - 1
Rows("1:" & r).Delete Shift:=xlUp
Sheets("Sheet1").Select
ActiveSheet.Range("$A$6:$A$58").AutoFilter Field:=1
Application.CutCopyMode = False
End Sub
No.1
- 回答日時:
こんな感じでしょうか。
スマフォでポチポチしてみただけなので動かしていないです。
不備がありましたら済みません。
Dim iCnt As Integer
iCnt =1
‘セルがブランクになるまでA列を検索
Do While ActiveSheet.Cells(iCnt, 1).Text=“”
‘セルの値が0200だったら
If ActiveSheet.Cells(iCnt, 1).Text=“0200” Then
‘ヒットした行をコピーして、別シートのどこかの行に全貼り付け
ActiveSheet.Rows(iCnt).Copy
別シート.Rows(どこか).PasteSpecial Paste:=xlPasteAll
End If
Loop
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) シートが違う2枚のエクセルシートにある数値を別シートにコピーしたい(VBA?) 8 2022/03/31 12:24
- その他(Microsoft Office) エクセルマクロ オートフィルターでで選択コピー 2 2022/04/18 11:05
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 11:55
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) 集計シートA列のコードと一致する右に並んだシート名(コード)の3行目から10行目をコピーして貼り付け 4 2022/08/18 15:24
- Visual Basic(VBA) 【部分一致した行を含む8行をシートにコピーする方法】 以下のような作業を行いたいのですが、どなたがコ 1 2022/08/30 16:24
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Excel(エクセル) 複数のExcelブックのシート1の内容を1つのExcelブックにコピー貼り付けたいのでvbaコードを 7 2023/02/10 23:20
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
【VBA】特定の文字が入っている行の一部を抽出して別シートコピーするには
Visual Basic(VBA)
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
-
4
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
5
VBAで条件が一致する行をコピーしその1つ下へ挿入
Excel(エクセル)
-
6
エクセルVBAで、ある文字を含んでいたら別シートに抽出したい
Excel(エクセル)
-
7
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
8
ある条件を満たすセルに対応する行のセル内容をコピーして・・
Visual Basic(VBA)
-
9
VBAで検索して、行をコピー&追加したい
Excel(エクセル)
-
10
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
11
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
-
12
エクセル VBA 特定文字がある行を別シートに移動
Visual Basic(VBA)
-
13
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
14
特定の文字を条件に行挿入とそこからセルデータを追加するVBAについて
Visual Basic(VBA)
-
15
i=cells(Rows.Count, 1)とi=cells(Rows.Count, 2)の違い
Visual Basic(VBA)
-
16
VBAで別ブックの列を検索し、該当があれば行ごと新規ブックにコピーしたい。
Excel(エクセル)
-
17
VBA 条件が一致した場合のみコピーする
その他(ビジネス・キャリア)
-
18
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
19
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
20
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
pdfの表をexcelにはりつけて計...
-
Excelのデーターを消して保存し...
-
exselの質問です
-
Excelの数式について教えてくだ...
-
エクセルの「赤」の印刷がうま...
-
エクセルで特定のセルに入力が...
-
関数の説明
-
[オプション]の[アクセスビリテ...
-
Excelについて
-
エクセル おすすめフォント
-
CSVファイルについて質問です。
-
エクセルの「入力規則」のプル...
-
Excelにいついて質問です。
-
Excelの関数について教えてくだ...
-
一つのセルに(例えばA1)入力...
-
VBAについての質問です
-
エクセルファイルがファイルの...
-
エクセルであるセルに数字を入...
-
Excelでセルの値が同じか...
-
UNIQUE関数が使えないバージョ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報