![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
ソフト excel2003
I列(赤枠部分)に文字列が入力された表があります。
マクロ実行時下記のようにするには、VBAのコードをどのように記入すればよろしいでしょうか?
『 △ 』ボタンをクリックすると
シート1の赤枠内のセルに△が入力されている行を切り取りしシート2に貼り付け
(下の行は上方向にシフト)
『 × 』ボタンをクリックすると
シート1の赤枠内のセルに×が入力されている行を切り取りしシート3に貼り付け
(下の行は上方向にシフト)
※ シート1の内容は日毎に更新されますので、更新後、『 △ 』ボタンをクリックするとその時点で△が入力されているものはシート2のリストへ追加され、『 × 』ボタンをクリックすると×が入力されているものはシート3のリストへ追加されるようにしたいです。
急ぎの仕事なので、困っています。
宜しくお願い致します。
![「エクセル VBA 特定文字がある行を別シ」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/b/1219802_5497cb3e93564/M.jpg)
No.1ベストアンサー
- 回答日時:
とりあえず△の方をサンプルとして作りました。
×の方はこれを改造してください。
Sub Sankaku()
'Sheet2の挿入位置(C列は結合セルではなく、必ず何か入っている事)
nMax2 = Sheets("Sheet2").Cells(Rows.Count, 3).End(xlUp).Row + 1
With Sheets("Sheet1")
nMax1 = .Cells(Rows.Count, 9).End(xlUp).Row
For i = nMax1 To 2 Step -2
If .Cells(i, 9) = "△" Then
'A~J列を移動対象とする
.Range(.Cells(i, 1), .Cells(i + 1, 10)).Copy
Sheets("Sheet2").Cells(nMax2, 1).Insert Shift:=xlDown
.Range(.Cells(i, 1), .Cells(i + 1, 10)).Delete Shift:=xlUp
End If
Next i
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 複数のブックに同じ列を表示させる方法 2 2022/07/20 23:49
- Excel(エクセル) EXCEL ActiveX コマンドボタンで実行する前にいったんmsgBoxで確認を求めたい 1 2022/07/06 19:41
- Excel(エクセル) シートが違う2枚のエクセルシートにある数値を別シートにコピーしたい(VBA?) 8 2022/03/31 12:24
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
【VBA】特定の文字が入っている行の一部を抽出して別シートコピーするには
Visual Basic(VBA)
-
特定の文字列があったらその行をまるごと別シートに反映させたい
Excel(エクセル)
-
-
4
エクセルVBAで、ある文字を含んでいたら別シートに抽出したい
Excel(エクセル)
-
5
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
6
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
7
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
8
【Excel】複数の列を参照して、特定の文字列を含む行全体を別シートに抽出する関数
Excel(エクセル)
-
9
エクセルVBAで、ある指定した文字を含む行だけを選択したいのですが、、 例えば、1〜20行目までに"8046938"
Excel(エクセル)
-
10
【Excel VBA】複数ある特定の文字列を含む行を削除
Excel(エクセル)
-
11
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
-
12
ExcelのVBAで連番を振る。
Excel(エクセル)
-
13
VBA 検索して一致したセルへジャンプさせたい
その他(プログラミング・Web制作)
-
14
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
15
特定の文字列が含まれている行のみ抜き出して、別シートに書き出す方法(Excel 2007)
Excel(エクセル)
-
16
エクセルVBA C列に特定の文字列を含む行のみを抽出し、一つのExcelにまとめたい。
Excel(エクセル)
-
17
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
18
別のシートから値を取得するとき
Visual Basic(VBA)
-
19
[初心者です]VBAで指定列からAを検索し、発見したら隣のセルに値0を入れるマクロ。
Access(アクセス)
-
20
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定の文字を含むシートだけマ...
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
excelのマクロで該当処理できな...
-
Excel VBA 複数行を数の分だけ...
-
XL:BeforeDoubleClickが動かない
-
VBA 存在しないシートを選...
-
ブック名、シート名を他のモジ...
-
Excel VBA リンク先をシート...
-
実行時エラー'1004': WorkSheet...
-
ExcelのVBAのマクロで他のシー...
-
エクセルのシート名変更で重複...
-
【VBA】色のついたシート名を取得
-
シートが保護されている状態で...
-
別のシートを参照して計算する方法
-
VBAで指定シート以外の選択
-
Excelマクロのエラーを解決した...
-
Worksheet_Changeの内容を標準...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
VBAで大量のファイルをシート名...
-
ユーザーフォームに入力したデ...
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
VBA 存在しないシートを選...
-
Excelマクロのエラーを解決した...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
実行時エラー1004「Select メソ...
-
【Excel VBA】Worksheets().Act...
-
ブック名、シート名を他のモジ...
-
エクセルのシート名変更で重複...
-
ExcelのVBAのマクロで他のシー...
-
Excel VBA 複数行を数の分だけ...
-
エクセルのマクロについて教え...
-
VBA 最終行まで数式をコピーする
おすすめ情報