[過去ﾛｸﾞ] Excel総合相談所 141 (1002ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

39(1): 2020/10/09(金)22:55 AAS
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

マクロ初心者です。
このような形で氏名のは入っている行に新規登録を追加していきたいと考えております。
ここまでは表示することができましたが、.Range("4:4")の次の値をSetする際にどうしてもうまくできません。
ご教授をお願いします。
Sub 検索()
With Worksheets("30年（当月）")
Dim noRng As Range
Dim nameRng As Range
Dim namelRng As Range
Set noRng = .Range("4:4").Find(what:=.Range("番号").Value, lookat:=xlWhole)
Set nameRng = .Range("4:4").Find(what:=.Range("氏名").Value, lookat:=xlWhole)
Set namelRng = Range("i15").End(xlDown)
Cells(namelRng.Row + 1, nameRng.Column) = "新規氏名"
Cells(namelRng.Row + 1, noRng.Column) = "新規番号"
End With
End Sub

---

上下前次1-新書関写板覧索設栞歴

---

あと 963 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 1.947s*