ループのように見えるスクリプトを書きたいと思います。私のデータは列Aの下にあります。
- スクリプトを列Bに入れたい.eg B2 = A2
- B3 の下に「xxxx」を入力し、B4 の下に「yyyy」を入力してから、データの終わりまでステップ 1 と 2 を繰り返します。
これまでのところ、私は以下を持っています。もう何百回も入力する必要があるので、どうすればループできますか....ありがとう。
Sub DATA()
Dim DL As Long
Dim Script1 As String
Dim Script2 As String
DL = Range("A" & Rows.Count).End(xlUp).Row
Script1 = "KEY END"
Script2 = "KEY WAIT"
Range("B2").Value = Range("A2")
Range("B3").Value = Script1
Range("B4").Value = Script2
Range("B5").Value = Range("A3")
Range("B6").Value = Script1
Range("B7").Value = Script2
Range("B8").Value = Range("A4")
Range("B9").Value = Script1
Range("B10").Value = Script2
End Sub