好像要自己写函数判断。
比如在宏里添加一下函数:
Function toNoNull(ByVal i As Integer) As String
col = Asc("A")
Do While 1
If ActiveSheet.Range(Chr(col + 1) & i) = "" Then
toNoNull = ActiveSheet.Range(Chr(col) & i)
Exit Do
End If
col = col + 1
Loop
End Function
然后在第一列里使用(括号中是行号)=toNoNull(1)
追问我知道,但函数怎么写
本回答被网友采纳