回答編集履歴
2
誤記修正
test
CHANGED
@@ -16,5 +16,5 @@
|
|
16
16
|
PlaceRow = SamePlace.Row
|
17
17
|
End If
|
18
18
|
```
|
19
|
-
※補足ですが、比較はオブジェクト
|
19
|
+
※補足ですが、比較はオブジェクトどうしなので「Is」で比較します。
|
20
20
|
|
1
補足追記
test
CHANGED
@@ -1,4 +1,5 @@
|
|
1
1
|
下記処理で、Rangeオブジェクトが取得できていないのではないでしょうか。
|
2
|
+
ブレークポイントを付与して、取得されたオブジェクトを確認してみてください。
|
2
3
|
```vba
|
3
4
|
Set SamePlace = Sheet11.Range(Cells(6, 1), lastRng).Find(what:=Range("A4").Value)
|
4
5
|
```
|