Range(Range("B1"), Cells(Rows.Count, 1).End(xlUp).Offset(0, 1)).Value = "=A1*100" End Sub このように、1行でも書く事が出来るようになります。(Offsetについては、後々説明します。) 第12回.変数宣言のDimとデータ型 データ型 データ型 名称 格納できる範囲 Integer 整数型 -32...
SubFind_String_Cell()IfInStr(Range("B2").Value,"Dr.")>0ThenRange("C2").Value="Doctor"EndIfEndSub セルの範囲をループして検索することもできます。 SubSearch_Range_For_Text()DimcellAsRangeForEachcellInRange("b2:b6")IfInStr(cell.Value,"Dr.")>0Thencell.Offset(0,1).Value="Doctor...