0

最後の行まですべての行を分割しようとしていますが、行2である1行だけで分割することに固執しています。これを使用することを考えていました

Dim LastRow As Range

LastRow = Range("A" & Rows.Count).End(xlUp).Row

しかし、範囲をどのように利用するかについての私の知識は非常に限られています.

あなたの考えを共有してください..ありがとう！:)

私のコードは次のとおりです。

Sub test1()


For Each c In Range("AL2:AS2 , BC2 ")
c.Value = c.Value / 1000
Next c

サブ終了

4

1 に答える 1

1

次のように、範囲文字列を作成することで範囲を作成できます。

Range("AL2:AS" & LastRow & ", BC2:BC" & LastRow)

.RowRange のプロパティが行番号である a を返すことに注意してLongください。したがって、次のように宣言する必要があります。

 Dim LastRow As Long

最後に、これにより次が得られます。

Sub test2()

 Dim LastRow As Long
 Dim myCell As Range

 LastRow = Range("A" & Rows.Count).End(xlUp).Row

 For Each myCell In Range("AL2:AS" & LastRow & ", BC2:BC" & LastRow)
  myCell.Value = myCell.Value / 1000
 Next myCell
End Sub
于 2013-09-06T06:12:45.437 に答える