A 回答 (2件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
マクロ(VBA)を使って、For ~ Next、Offsetなどをで転機して別シートを作ることはやってやれないことはないのですが、質問内容程度のことでしたら、オートフィルター機能を使って、●印の入っている行を抽出すれば済むと思うのですが。
No.2
- 回答日時:
思われていることと違っていましたらすみませんが、参考までに次のコードをマクロに貼り付けて試してみてください。
例は"Sheet1"のC列が●の行を"休眠顧客リスト"シートを作成して抽出します。
コードの(1)には、実際の顧客リストのシート名を記述してください。
コードの(2)には、実際の「リリース」の列番号を記述してください。(C列なら3)
メニューバーの「ツール」→「マクロ」→「マクロ」をクリック
↓
マクロのダイアログが表示されたらマクロ名に自由に名前を入力してください。(例:抽出)
↓
名前を入力しましたら、「作成」をクリック
↓
Microsoft Visual Basicの画面が開きますのでSub 抽出()の下に次のコードをコピーして貼り付けてください。
Dim 行番号 As Long
Dim 抽出行番号 As Long
Dim 最大行 As Long
Dim 顧客リスト As String
Dim 列番号 As Long
Dim スイッチ As Integer
顧客リスト = "Sheet1" '←顧客リストのシート名をセットしてください。…(1)
列番号 = 3 '←●が入る列を列番号でセットしてください。(C列なら3)…(2)
スイッチ = 0
On Error GoTo skip1
Sheets("休眠顧客リスト").Select
スイッチ = 1
skip1:
If スイッチ = 0 Then '"休眠顧客リスト"シートが無かったら作成する
Sheets.Add
ActiveWorkbook.ActiveSheet.Name = "休眠顧客リスト"
End If
Sheets("休眠顧客リスト").Cells.ClearContents
Sheets(顧客リスト).Select
Sheets(顧客リスト).Range("A65536").End(xlUp).Select
最大行 = ActiveCell.Row
行番号 = 1
抽出行番号 = 1
'項目行を抽出
Sheets(顧客リスト).Select
Sheets(顧客リスト).Rows(行番号).Select
Selection.Copy
Sheets("休眠顧客リスト").Select
Sheets("休眠顧客リスト").Rows(抽出行番号).Select
ActiveSheet.Paste
Application.CutCopyMode = False
抽出行番号 = 抽出行番号 + 1
'●の行を抽出
Do
If Sheets(顧客リスト).Cells(行番号, 列番号) = "●" Then
Sheets(顧客リスト).Select
Sheets(顧客リスト).Rows(行番号).Select
Selection.Copy
Sheets("休眠顧客リスト").Select
Sheets("休眠顧客リスト").Rows(抽出行番号).Select
ActiveSheet.Paste
Application.CutCopyMode = False
抽出行番号 = 抽出行番号 + 1
End If
行番号 = 行番号 + 1
Loop Until 行番号 > 最大行
Sheets("休眠顧客リスト").Select
Sheets("休眠顧客リスト").Range("A1").Select
MsgBox "休眠顧客リストを作成しました。"
'****コピー貼り付けはここまで ****
Microsoft Visual Basicの画面を×で閉じます
↓
Excel画面のメニューバーの「ツール」→「マクロ」→「マクロ」をクリック
↓
先ほど名前を付けたマクロを選択して「実行」をクリック
この回答へのお礼
お礼日時:2008/03/25 09:48
kuma3f 様
ご丁寧にありがとうございます。
やはり、マクロを使わなければいけないのですね?
実は、使った事がないので、どうなるかわかりませんが、やってみます。
結果はまた、ご報告させていただきます。
取り急ぎ、御礼だけになってしまうのですが・・・
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【エクセル」 特定のセルで条件抽出した列を、別シートに上から詰めて表示したい。 8 2022/04/08 16:00
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Excel(エクセル) エクセルの祝日に色が反映しない 4 2022/05/18 09:58
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- Excel(エクセル) 【エクセル】COUNTIFの検索条件が可変する数字の場合の数式 1 2022/09/27 15:34
- Excel(エクセル) excelにおける転記マクロの書き方 2 2023/05/12 03:16
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Excel(エクセル) 条件に合った数値の合計を表示させたい関数と条件指定の方法 3 2023/05/13 16:07
- Excel(エクセル) 出勤簿の土、日、休日に色付けできない 2 2022/08/04 20:10
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで「3次元配列」表の...
-
顧客CDのCDって?
-
<新設税理士事務所です>ミロ...
-
EXCELでデータの履歴を残したい...
-
アクセスでのデータ抽出方法
-
【エクセル】TextBoxの数値の入...
-
VBA。リストボックスの値を別の...
-
今繋がらない携帯番号の前の所...
-
読み取ったQRコード/バーコード...
-
EXCELでバーコードを作成すると...
-
バーコードコントロールが印刷...
-
バーコードってダブらない?
-
エクセル バーコード作成で他の...
-
スマホで、JANコードのバーコー...
-
差し込み印刷のバーコードを小さく...
-
国内線航空券をJALのアプリにて...
-
大量の図変換でVBAが遅い
-
振込請求書が破れてしまいました
-
コンビニ決済の用紙で支払いの...
-
au PAYでの支払いのとき、うま...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで「3次元配列」表の...
-
<新設税理士事務所です>ミロ...
-
顧客CDのCDって?
-
VBA。リストボックスの値を別の...
-
エクセルで並び替えするとハイ...
-
エクセルの数式で教えてください。
-
エクセルVBA テキストボックス検索
-
VBA リストボックス反映できない
-
EXCELシート内の数字での並び替...
-
エクセルで顧客の継続率
-
Excel 指定した固有番号で、複...
-
対象月の2桁表示について
-
アクセスでのデータ抽出方法
-
エクセルでのデータ作成(数値...
-
顧客名簿管理、郵便振込取扱票...
-
エクセルでのデータ拾い
-
【ExcelVBA】顧客別に抽出デー...
-
エクセルデータ。容量を減らす...
-
顧客データと請求書、売上帳を...
-
お客さんの来店間隔が知りたい...
おすすめ情報