|
▼ドカ さん:
ありがとうございます。
ついでで申し訳ないのですが、
検索Findを使用するときの指定要因で、検索用語が完全一致であることを指定するには、どういう文言が必要なのでしょうか。調べても見つからず困っています。
教えていただけますでしょうか。
以下は、“当期純損益金額”という言葉のある行の2行下にコピーしているものを
貼り付ける事を書いたものです。
他にもこの言葉が入った用語があり、現在のモジュールはそれを選択してしまっています。
言葉の完全一致を指定したいです。
Range("A10").Select '投資残の表を損益外貨表の下に貼り付け
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets(2).Select
With Worksheets(2).Range("a10:a50")
Set u = .Find("当期純損益金額", LookAt:=xlPart, LookIn:=xlValues, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=True)
firstaddress = u.Address
Range("A" & u.Row + 2).Select
ActiveSheet.Paste
End With
宜しくお願い致します。
|
|