一括ドラッグ（範囲指定）について

質問

マクロボタンでの一括ドラッグ（範囲指定）は可能でしょうか。

Ａ列に○印を付けてソートした、Ｂ列の番号をドラッグ（範囲指定）して他のシートへ
コピペしています。

ソートした段階で、Ａ列に○印の付いたＢ列の番号を、マクロボタンで一括ドラッグ（範囲指定）
することなど出来るでしょうか。

ドラッグ（指定範囲）数はソートの都度違っていますので、マクロボタンで一括して範囲指定出来れ
ば便利だと思っています。

どなたか、よろしくお願いいたします。

回答No.1

keithin · ベストアンサー

方法１：ソートする必要もない

sub macro1()
　activesheet.autofiltermode = false
　range("A:B").autofilter field:=1, criteria1:="○"
　range("B:B").copy destination:=worksheets("Sheet2").range("B1")
　activesheet.autofiltermode = false
end sub

方法２：とりあえずご質問の直接の回答
sub macro2()
　dim s, e
　range("A:B").sort key1:=range("A1"), order1:=xlascending, header:=xlguess
　set s = range("A:A").find(what:="○", lookin:=xlvalues, lookat:=xlwhole)
　if s is nothing then exit sub
　s.resize(application.countif(range("A:A"), "○"),1).offset(0, 1).select
end sub

お礼

早速のご教示、ありがとうございます。
方法２で思うようにできました。
早速、活用させていただきます。
ありがとうございました。