可視セルを関数に組み込むマクロ

使用条件にあわせて変形してください。 ・A-D列とE-H列のどちらかが必ず非表示になっているなら、 B1 = ActiveSheet.Columns("B").Hidden * 1 でB列の状態を確認し、 もし表示なら Z1にA1、B1を引数とする関数(T1)をいれ 非表示なら Z1にE1、F1を引数とする関数(T2)をいれればいい。 if B1=0 then Sheets(1).Cells(1, 26).Formula = T1 else Sheets(2).Cells(1, 26).Formula = T2 ・関数はできているのだろうから、 自動記録で、できている式を貼り付けると ActiveCell.FormulaR1C1 = "=IF(RC[-9]=RC[-11],9,IF(RC[-9]=RC[-10],10,RC[-9]))" のように表示された式を T1="=IF(C2=A2,9,IF(C2=B2,10,C2))" のように変形する。 (セル参照を見慣れた形に変形しただけ) ・オートフィルは Range("Z1").Select Selection.AutoFill Destination:=Range("Z2:Z29"), Type:=xlFillDefault のようになる。