| |
こんにちは。かみちゃん です。
> 2が空白の場合１の値を3が空白の場合１値をを4が空白でないならそのままで5が
> 空白なら４の値を...といったかたちでフロー制御したい
以下の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
|
|
かみちゃん
- 06/10/22(日) 11:04 -
