▽1
●
うぃんど ●100ポイント ベストアンサー |
一例
Option Explicit Sub Macro1() ' 式を入れる Range("D33").FormulaR1C1 = "=IF(SUM(R[1]C44:R[1]C[40])=0,"""",SUM(R[1]C44:R[1]C[40]))" ' コピー Range("D33").Select Selection.AutoFill Destination:=Range("D33:AM33"), Type:=xlFillDefault End Sub