Question

excel vba赋值为同一行的对应的合并的单元格的值

求b列，用vba。

Answer 1

B1=IF(A1<>"",A1)

B2=IF(A2<>"",A2,IF(AND(A2<>"",A2=A1),A2,B1))

追问

要的是vba，下面两个的错了。

Answer 2

Sub 填充()

Set Rng = Application.InputBox("请选择数据", , , , , , , 8)

For Each rg In Rng

If rg <> "" Then

rg(1, 2) = rg

sr = rg

Else

rg(1, 2) = sr

End If

Next

End Sub

追问

Sub 填充()
Set Rng = range("a1" & range("a63300").end(3).row)
For Each rg In Rng
If rg "" Then
rg(1, 2) = rg
sr = rg
Else
rg(1, 2) = sr
End If
Next
End Sub
我改变代码，就不用手动了

Answer 3

公式法：B2公式：

=IF(A2="",B1,A2)

VBA方法：

cells(1,2)=cells(1,1)
for i=2 to 100
    if cells(i,1)="" then
        cells(i,2)=cells(i,1)
    else
        cells(i,2)=cells(i-1,2)
    end if
next i

追问

不行

Answer 4

Sub ss()
cells(1,2)=cells(1,1)
for i=2 to 100
    if cells(i,1)="" then
        cells(i,2)=cells(i,1)
    else
        cells(i,2)=cells(i-1,2)
    end if
next i
End Sub