2017-12-17 7 views
0

これは新しい投稿です。添付されているスクリーンダンプをご覧ください。LOOKUPで見つかったセルのアドレスを見つけて、対応するセルをフェッチする方法はありますか?

The code has to find the last non-zero value in Col A of this sheet and then fetch the value in Col C in the same row and paste it in C3.

コード:

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 

事前にありがとうございました。

答えて

2
= LOOKUP(2,1/(A10:A26>0),C10:C26) 
+0

非常にうまく動作します。そしてそれはとても簡単に見えます!私は何か複雑なことを期待していましたが、いつものように、Lessはもっとです。これまでにありがとうございました! – JSP

+0

@JSP喜んで助けてください。これがあなたの必要と思われるので、私の答えを答え(左上のチェックボックス)としてマークすることができれば幸いです。 –

+0

そのチェックボックスの位置がわかりません。私はこのコメントの上に少し上向きに "2"を表示していましたが、私はずっと前にそれをしていましたので、あなたが*前にそれを書いたかどうかは分かりません。 – JSP

関連する問題