0
これは新しい投稿です。添付されているスクリーンダンプをご覧ください。LOOKUPで見つかったセルのアドレスを見つけて、対応するセルをフェッチする方法はありますか?
コード:
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
事前にありがとうございました。
非常にうまく動作します。そしてそれはとても簡単に見えます!私は何か複雑なことを期待していましたが、いつものように、Lessはもっとです。これまでにありがとうございました! – JSP
@JSP喜んで助けてください。これがあなたの必要と思われるので、私の答えを答え(左上のチェックボックス)としてマークすることができれば幸いです。 –
そのチェックボックスの位置がわかりません。私はこのコメントの上に少し上向きに "2"を表示していましたが、私はずっと前にそれをしていましたので、あなたが*前にそれを書いたかどうかは分かりません。 – JSP