teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

修正

2021/11/08 02:08

投稿

jinoji
jinoji

スコア4592

answer CHANGED
@@ -2,7 +2,7 @@
2
2
  Sub find()
3
3
 
4
4
  Dim a As Variant
5
- Set a = Worksheets("Sheet1").Range("A:A").find(what:="2021年11月5日", LookIn:=xlValues)
5
+ Set a = Worksheets("Sheet1").Range("A:C").find(what:="2021年11月5日", LookIn:=xlValues)
6
6
 
7
7
  If Not a Is Nothing Then
8
8
  MsgBox a.Row