赤い色のついたセルに他の列にある数字を持ってくる作業。

Question

Bの列のセルが赤く塗られてたら、そこにF列の2行目から送料が入っているので（700円、1200円、600円・・・と1行ずつ送料が違う）最初の赤いセルには2行目の送料、2個目の赤いセルには3行目の送料、3個目の赤いセルには4行目の送料と入れていきたいです。Ｆ列の送料が０になったら作業を終わりたいです。

下記考えてみましたが、エラーでした。

Sub 送料()

Dim i As Long, b As Long

For i = 2 To 100 Step 1
For b = 2 To 10 step 1

If Sheets("Sheet1").Cells(i, 2).Interior.Color = 255 Then

   Sheets("Sheet1").Cells(i, 2) = Sheets("Sheet1").Cells(b, 6)
   b = b + 1
 If Cells(b, 6) = "0" Then
       Exit Sub
       
 End If
 

End If
a = a + 1
Next
Next

End Sub

Answer 1

こんな感じでしょうか。

Sub 送料()
    Dim i As Long, b As Long
    b = 2
    For i = 2 To 100 Step 1
        If Sheets("Sheet1").Cells(i, 2).Interior.Color = 255 Then
            Sheets("Sheet1").Cells(i, 2).Value = Sheets("Sheet1").Cells(b, 6).Value
            b = b + 1
            If Sheets("Sheet1").Cells(b, 6).Value = 0 Then
                Exit Sub
            End If
        End If
    Next
End Sub

Comments

[turnstar]

秒でできました。

すんげー！

[turnstar]

ありがとうございました。ありがとうオリゴ糖。