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も見ています
-
つい集めてしまうものはなんですか?
人間誰もは1つ「やたらこればかり集めてしまう」というものがあるもの。 あなたにとって、つい集めてしまうものはなんですか?
-
秘密基地、どこに作った?
小さい頃、1度は誰もが作ったであろう秘密基地。 大人の今だからこそ言える、あなたの秘密基地の場所を教えてください!
-
メモのコツを教えてください!
メモを取るのが苦手です。 急いでメモすると内容がごちゃごちゃになってしまったり、ひどいときには全く読めない時もあります。
-
あなたは何にトキメキますか?
「きゅんとした〜♪」 と思う瞬間ってありますよね。 それは恋愛だったり、推し活だったり、映画のワンシーンだったり……。
-
架空の映画のネタバレレビュー
映画のCMを見ていると、やたら感動している人が興奮で感想を話していますよね。 思わずストーリーが気になってしまう架空の感動レビューを教えて下さい!
-
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
【VBA】特定の文字が入っている行の一部を抽出して別シートコピーするには
Visual Basic(VBA)
-
-
4
ある条件を満たすセルに対応する行のセル内容をコピーして・・
Visual Basic(VBA)
-
5
VBAで条件が一致する行をコピーしその1つ下へ挿入
Excel(エクセル)
-
6
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
7
エクセルVBAで、ある文字を含んでいたら別シートに抽出したい
Excel(エクセル)
-
8
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
-
9
特定の文字列があったらその行をまるごと別シートに反映させたい
Excel(エクセル)
-
10
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
11
エクセルVBAで、ある指定した文字を含む行だけを選択したいのですが、、 例えば、1〜20行目までに"11791185"
Excel(エクセル)
-
12
VBAで検索して、行をコピー&追加したい
Excel(エクセル)
-
13
特定の文字列が含まれている行のみ抜き出して、別シートに書き出す方法(Excel 2007)
Excel(エクセル)
-
14
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
15
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
16
VBA 条件が一致した場合のみコピーする
その他(ビジネス・キャリア)
-
17
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
-
18
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
19
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
20
マクロで空白セルを詰めて別シートに転記
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~11/12】 急に朝起こしてきた母親に言われた一言とは?
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・好きな「お肉」は?
- ・あなたは何にトキメキますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・【お題】NEW演歌
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで合計を求めたいです
-
Excelの警告について
-
excelVBAについて。
-
エクセルの数式が分かりません
-
エクセル2021 範囲指定印刷をす...
-
11ケタの数字を打つと、エク...
-
Excelで、毎月の月曜と金曜の合...
-
vbe でのソースコード参照(msgb...
-
エクセル初心者です 用語等まだ...
-
【マクロ】メッセージボックス...
-
excelVBAについて。
-
エクセル初心者です 用語とか良...
-
エクセルの関数ついて
-
【マクロ】複数の日付データをY...
-
Excelのセルの色を変えた行(す...
-
excelVBAについて。
-
excelVBAについて。
-
excelVBAについて。
-
条件付き書式の効率的な設定の...
-
IF 日付範囲に入っていたら
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの警告について
-
エクセルの数式バーのフォント...
-
【Excel】日付に連動してプルダ...
-
【再投稿】レイアウトが異なる...
-
Excelについて教えてください ...
-
同率順位の発生しないランキン...
-
エクセルマクロについて教えて...
-
【Excel VBA】 テキストファイ...
-
Excel 標準フォントについて教...
-
Excelの計算で差分を求める場合...
-
Excelの区切り文字について質問...
-
大容量があつかえるソフトを探...
-
エクセルの計算式について(COU...
-
エクセルについて
-
今までは、 「CSVの出力先を選...
-
Excel ショートカットで列、行...
-
8:40までの出勤は全て8:30に...
-
if関数。半角文字や全角文字で...
-
エクセルの関数
-
毎週追加して行くセルの数値を...
おすすめ情報