所以这是一个新帖子,请看附加的屏幕转储。
代码:
Sub FindFetch()
' Find the last non-zero value in Col A and then fetch the corresponding value
ActiveSheet.Range("A3").Formula = "= LOOKUP(2,1/(A10:A26>0),A10:A26)"
' Fetch the value in the corresponding column C:
' xxx <- this is my problem, how to get there
ActiveSheet.Range("Cxxx").Copy
Range("C3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
非常感谢你。
答案 0 :(得分:2)