ExcelVBA

非連続の複数列を選択して置換する

非連続の複数列を選択し、セルがブランクであれば0に置換する

Excel-VBA
Range("AO:AO,AQ:AQ,AS:AS,AU:AU,AW:AW,AY:AY,BA:BA,BC:BC").Select
Selection.Replace What:="", Replacement:="0"