![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
反響管理している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も見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
文字の色も参照 VLOOKUP
-
エクセルのブック分割マクロを...
-
VBAで繰り返しコピーしながら下...
-
エクセル マクロ 標準モジュー...
-
エクセルの保護で、列の表示や...
-
エクセルで横並びの複数データ...
-
オートフィルタ使用時にCOUNTIF...
-
エクセルで、book全体の検索&...
-
VLOOKアップ関数の結果の...
-
【条件付き書式】countifsで複...
-
ExcelのVlookup関数の制限について
-
スプレッドシートでindexとIMPO...
-
Excel複数シートにあるデータを...
-
Excelに自動で行の増減をしたい...
-
エクセル複数シートのデータを...
-
SUMPRODUCTにて別シートのデー...
-
別シートに成約をボタン1つで転...
-
Excelでの並べ替えを全シートま...
-
エクセルの列の限界は255列以上...
-
【VBA】複数のシートの指定した...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
文字の色も参照 VLOOKUP
-
ExcelのVlookup関数の制限について
-
エクセルの保護で、列の表示や...
-
VBAで繰り返しコピーしながら下...
-
Excel の複数シートの列幅を同...
-
Excel複数シートにあるデータを...
-
エクセルの列の限界は255列以上...
-
【条件付き書式】countifsで複...
-
エクセル マクロ 標準モジュー...
-
Excelでの並べ替えを全シートま...
-
SUMPRODUCTにて別シートのデー...
-
エクセルで、チェックボックス...
-
VLOOKアップ関数の結果の...
-
スプレッドシートでindexとIMPO...
-
Excel VBA ピボットテーブルに...
-
エクセルで横並びの複数データ...
-
Excelに自動で行の増減をしたい...
-
【VBA】ピボットテーブルを既存...
-
【VBA】複数のシートの指定した...
-
オートフィルタ使用時にCOUNTIF...
おすすめ情報