Range(Range("B1"), Cells(Rows.Count, 1).End(xlUp).Offset(0, 1)).Value = "=A1*100" End Sub このように、1行でも書く事が出来るようになります。(Offsetについては、後々説明します。) 第12回.変数宣言のDimとデータ型 データ型 データ型 名称 格納できる範囲 Integer 整数型 -32...
' 选择名为“Database”区域下方4行右侧3列的一个区域,然后扩展2行和1列,可以使用下面的代码: Range("Database").Select Selection.Offset(4, 3).Resize(Selection.Rows.Count + 2, Selection.Columns.Count + 1).Select同时选择两个或多个指定区域 注意:所选区域必须在同一工作表(sheet)中。
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...