質問: r.rows.count ---実行前(オートフィルタ後)------------------ c列 e列 ・ ・ ・ ・ 2007/10/13 =g60 2007/10/13 2007/10/13 2007/10/13 2007/10/13 2007/10/14 2007/10/14 --実行後------------------- c列 e列 ・ ・ ・ ・ 2007/10/13 =g60 2007/10/13 =g60 2007/10/13 =g60 2007/10/13 =g60 2007/10/13 =g60 2007/10/14 =g60 2007/10/14 =g60
回答: こんにちは。 ご質問者さんは、難しく考えすぎなのだと思います。ご質問の内容からすると、単に、こういうように直せばよいと思います。質問内容からすると、列も任意の場合も含めるようですから、一応、相対位置を取らないといけませんね。take it easy! sub testr() dim col as integer col = activecell.column - 3 'c列に対して activecell.autofill destination:= _ range(activecell, range("c65536").end(xlup).offset(0, col)), type:=xlfilldefault end sub