|
こんにちは。かみちゃん です。
> 2が空白の場合1の値を3が空白の場合1値をを4が空白でないならそのままで5が
> 空白なら4の値を...といったかたちでフロー制御したい
以下のSample1、Sample2のどちらでもできます。
なお、フロー制御が目的ならば、Sample2のコードは、おすすめしません。
あと、どちらのコードも、A列の最終行の値より下には、転記しませんので、注意
してください(最大行まで転記するわけではないと思いますので)
Sub Sample1()
Dim LastCell As Range
Dim c As Range
Dim valData
Set LastCell = Cells(Rows.Count, 1).End(xlUp)
For Each c In Range("A1", LastCell)
If c.Value = "" Then
c.Value = valData
Else
valData = c.Value
End If
Next
MsgBox "終了!!"
End Sub
Sub Sample2()
Dim LastCell As Range
Dim c As Range
Set LastCell = Cells(Rows.Count, 1).End(xlUp)
For Each c In Range("A1", LastCell).SpecialCells(xlCellTypeConstants, 3)
If c.Address <> LastCell.Address Then
Range(c, c.End(xlDown).Offset(-1)).Value = c.Value
End If
Next
MsgBox "終了!!"
End Sub
|
|