
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
【VBA】特定の文字が入っている行の一部を抽出して別シートコピーするには
Visual Basic(VBA)
-
-
4
エクセルVBAで、ある指定した文字を含む行だけを選択したいのですが、、 例えば、1〜20行目までに"11791185"
Excel(エクセル)
-
5
特定の文字列があったらその行をまるごと別シートに反映させたい
Excel(エクセル)
-
6
VBAで条件が一致する行をコピーしその1つ下へ挿入
Excel(エクセル)
-
7
エクセルVBAで、ある文字を含んでいたら別シートに抽出したい
Excel(エクセル)
-
8
ある条件を満たすセルに対応する行のセル内容をコピーして・・
Visual Basic(VBA)
-
9
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
10
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
11
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
12
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
-
13
VBA 空白行に転記する
Visual Basic(VBA)
-
14
別ブックをダイアログボックスで指定してそこにあるシートをコピーしたい
Excel(エクセル)
-
15
【VBA】指定したセルと同じ値で、別シートにあるセルに移動するには?
Visual Basic(VBA)
-
16
VBA 別ブックから条件に合うものを転記したいです
Visual Basic(VBA)
-
17
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
18
シート間で同じ値があったらコピペ
Visual Basic(VBA)
-
19
【VBA】元のシート内の文字列を別シートと比較し、一致したら元のシートの別のセルへ転記する方法。
Excel(エクセル)
-
20
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
9月17日でサービス終了らし...
-
エクセル
-
エクセルのdatedif関数を使って...
-
エクセル ドロップダウンリスト...
-
エクセルの循環参照、?
-
【マクロ】WEBシステムから保存...
-
【マクロ】A列にある、日付(本...
-
【マクロ】EXCELで読込したCSV...
-
【マクロ】別のブックから、フ...
-
特定のセルだけ結果がおかしい...
-
VBA チェックボックスをオーバ...
-
iPhoneのExcelアプリで、別のシ...
-
【エクセル】期限アラートについて
-
【マクロ】アクティブセルの時...
-
Excelの新しい空白のブックを開...
-
【マクロ】3行に上から下に並...
-
Excelについての質問です 並べ...
-
【関数】同じ関数なのに、エラ...
-
マクロ・VBAで、当該ファイルの...
-
Excelファイルを開くと私だけVA...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelファイルを開くと私だけVA...
-
エクセルについてどう関数を使...
-
マクロ・VBAで、当該ファイルの...
-
エクセルのセルに画像は埋め込...
-
エクセルで、一部のセルだけ固...
-
【マクロ、画像あり】A表かB表...
-
エクセルでカウントする
-
【マクロ】コードを少しでも、...
-
VBA_日時のソート
-
エクセルで教えてください。 例...
-
エクセル 月間シフト表で曜日ご...
-
セルの左に余白を付ける
-
エクセル
-
エクセルについて教えてください
-
2枚のエクセル表で数字をマッチ...
-
ExcelのIF関数との組み合わせの...
-
エクセルのファイルのコピーを...
-
エクセルで二つのブックの違い...
-
空白処理を空白に
-
Excelのチェックボックスについ...
おすすめ情報