![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
反響管理しているExcelシートがあります。
1.反響管理シート
2.売上管理シート
3.長期追客シート
1.の反響管理シートが常に入力をしているシートで、W列に、
成約
失注
長期追客
と状況を入れています。
それをもとに成約であれば2.の売上管理シートに、長期追客であれば3.長期追客シートへ転記させたいと考えています。
ボタンひとつで転記できればなぁと思っているのですが、マクロ?を使えば出来るのでしょうか!?
教えてください。
宜しくお願いいたします。
元データにはA列~AB列まで記載してあるのですが、下記14項目だけを転記(A列は空けてB列から左詰めで)したいです。
B、C、D、E、F、G、I、J、W、X、Y、Z、AA、AB
このようなマクロの設定は可能でしょうか?
教えてください。
宜しくお願いいたします。
No.4ベストアンサー
- 回答日時:
No2です。
>マクロの記録を押してからフィルターオプションを設定?
>して記録の終了を押したらできますか?
「マクロの記録」は手動操作の内容を、マクロとして記録するものです。
一方で、
>何度も試してみたのですがフィルターオプションが出来なくて…
手動の操作がわからないのであれば、記録のしようがありません。
マクロに拘る理由が不明ですが、自作できないようですので、どこかで作成できても、言わばブラックボックスであり呪文のようなものでしかないでしょう。
修正もできなければメンテもできないものになってしまうと考えられます。
以下はご質問文で不明の点は、勝手に想定した一例です。
・シート名は「反響管理」「売上管理」「長期追客」の3種類と仮定。
・W列の値は「成約」「長期追客」の完全一致で抽出します。
処理方法としては、No2に挙げた3番目の方法です。
(エラーチェック等は省略してあります)
ご参考までに。
Sub Q13636093()
Dim sh As Worksheet, s
Dim r As Range, U As Range
Dim i As Long, w As String
With Worksheets("反響管理")
For Each n In Array("売上管理,成約", "長期追客,長期追客")
Set sh = Worksheets(Split(s, ",")(0))
w = Split(s, ",")(1)
Set U = Nothing
For i = 1 To .Cells(Rows.Count, "W").End(xlUp).Row
If .Cells(i, 23).Value = w Then
Set r = Union(.Cells(i, 2).Resize(, 6), _
.Cells(i, 9).Resize(, 2), .Cells(i, 23).Resize(, 6))
If U Is Nothing Then Set U = r Else Set U = Union(U, r)
End If
Next i
sh.Columns("B:O").ClearContents
If Not U Is Nothing Then U.Copy Destination:=sh.Cells(1, 2)
Next s
End With
End Sub
No.3
- 回答日時:
chatGPTに聞けばソースコードも生成してくれます。
使い方などはYoutube動画にたくさんあるので簡単ですよ。
No.2
- 回答日時:
こんにちは
https://oshiete.goo.ne.jp/qa/13635830.html
でも回答しましたが、関数を設定しておけば、ボタンを押すことも不要になります。
何らかの理由で、マクロでなければダメなのであれば、
・フィルタオプションを利用する方法
・関数式を利用する方法
・各行を処理して、該当行を抽出する方法
などなどが考えられます。
上段の二つの方法であれば、「マクロの記録」を利用することで、ほぼ作成が可能です。
ありがとうございます~
それが、何度も試してみたのですがフィルターオプションが出来なくて…
こうやってまた質問させていただきました。
マクロの記録でフィルターオプションを利用する方法ですが、
マクロの記録を押してからフィルターオプションを設定?して記録の終了を押したらできますか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) マクロを修正できないものか、統合シートについて 3 2021/12/07 09:26
- Excel(エクセル) エクセル作業の効率化マクロを教えて下さい 7 2022/02/06 00:47
- Visual Basic(VBA) 【Excel VBA】全シートのデータを1シートに集約するには? 2 2021/11/15 18:13
- Excel(エクセル) マクロ作成で困っています。お教え頂けませんか。 1 2021/12/12 17:02
- Visual Basic(VBA) VBAで最新のデータを別シートに転記する方法をお教えください。 3 2022/04/07 19:20
- Visual Basic(VBA) 【Excel VBA】Worksheets().Active でエラーが出る原因を教えてください 6 2021/11/08 17:25
- Visual Basic(VBA) 転記先VBA 一致しているセルがコピーされない 5 2021/11/15 17:23
- Perl INDIRECT 横に再度抽出したい 3 2021/11/10 23:23
- Excel(エクセル) 納品書台帳の納品書番号(一連番号)が入力シートからのデータ転記で反映(表示)されるようにしたい。 1 2021/11/17 19:49
- Excel(エクセル) 【エクセル」 特定のセルで条件抽出した列を、別シートに上から詰めて表示したい。 8 2022/04/08 16:00
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
エクセル詳しい方教えて下さい
Excel(エクセル)
-
データから単位文字を除去して計算する方法は?
Excel(エクセル)
-
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
-
4
Excelで新しい出勤簿作りたいのですが分かる方お力添えお願い致します。
Excel(エクセル)
-
5
同じ型【ハイフンと数字】をぶつけて、イコールである事を証明する関数はありますか?
Excel(エクセル)
-
6
エクセル条件付き 設定・コピペ
Excel(エクセル)
-
7
エクセルで有効桁数を確認する方法
Excel(エクセル)
-
8
エクセルで条件書式と数式の組み合わせはできる?
Excel(エクセル)
-
9
エクセルの行を巾を変えずに増やす方法
Excel(エクセル)
-
10
エクセルで【0.5日と1日】を表示したいのですが。。。
Excel(エクセル)
-
11
ご教示のほどお願いします。 Excelで管理表を作成してまして、関数式を教えてください。 添付した写
Excel(エクセル)
-
12
エクセルで⑤番の操作が分かりません。どういう関数が良いんですか?
Excel(エクセル)
-
13
エクセルのcountifのワイルドカードについて
Excel(エクセル)
-
14
Excelの関数で教えください。 今作成している表で 例えば A1=D1 A2=D2としてD1に神奈
Excel(エクセル)
-
15
数値から名前が作成できなくなっているッ!?
Excel(エクセル)
-
16
勤務時間を割り出す、関数式を教えて頂きたいのですが、少し複雑で例えば項目名としてA1セルに出社時刻と
Excel(エクセル)
-
17
各セルの表記を(項目人数~~~)と一つのセルにまとめて表記したい。
Excel(エクセル)
-
18
Excelでこういう年を切り替えられる簡易なカレンダーを作ったのですが、 年や月を変えると、色が付い
Excel(エクセル)
-
19
Excel
Excel(エクセル)
-
20
顧客管理の簡易化について。 仕事で顧客管理をエクセルで行っています。 お客様へ顧客登録に必要なデータ
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelのVlookup関数の制限について
-
エクセルの保護で、列の表示や...
-
文字の色も参照 VLOOKUP
-
SUMPRODUCTにて別シートのデー...
-
エクセル マクロ 標準モジュー...
-
Excel複数シートにあるデータを...
-
エクセルの列の限界は255列以上...
-
Excelでの並べ替えを全シートま...
-
オートフィルタ使用時にCOUNTIF...
-
エクセルのブック分割マクロを...
-
エクセルVBAで、ある文字を含ん...
-
VBAで繰り返しコピーしながら下...
-
Excel VBA ピボットテーブルに...
-
複数行の同列に同じ値があった...
-
【条件付き書式】countifsで複...
-
Excel の複数シートの列幅を同...
-
エクセル複数シートのデータを...
-
エクセルで、チェックボックス...
-
エクセルで横並びの複数データ...
-
スプレッドシートでindexとIMPO...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
文字の色も参照 VLOOKUP
-
ExcelのVlookup関数の制限について
-
エクセルの保護で、列の表示や...
-
VBAで繰り返しコピーしながら下...
-
Excel の複数シートの列幅を同...
-
エクセルで横並びの複数データ...
-
エクセルの列の限界は255列以上...
-
【条件付き書式】countifsで複...
-
Excelでの並べ替えを全シートま...
-
SUMPRODUCTにて別シートのデー...
-
エクセル マクロ 標準モジュー...
-
VLOOKアップ関数の結果の...
-
エクセルで、チェックボックス...
-
Excel VBA ピボットテーブルに...
-
オートフィルタ使用時にCOUNTIF...
-
スプレッドシートでindexとIMPO...
-
エクセルVBAで、ある文字を含ん...
-
エクセルのブック分割マクロを...
-
【VBA】複数のシートの指定した...
-
Excel複数シートにあるデータを...
おすすめ情報