|
▼KOTARO さん:
>下記のようなコードをつくりましたが
>withのエラーがでてしまいました。
>
>
>Sub 検索()
> Dim FoundCell As Variant
> With Worksheets("Sheet2")
> Set FoundCell = .Range("A2:A1000").Find("北海道")
> If FoundCell Is Nothing Then
>
> Else
> Worksheets("Sheet1").Range("A2").Value = "*"
End If 入れてみました。
> End With
> ・
> ・
> ・
>
> With Worksheets("Sheet2")
> Set FoundCell = .Range("A2:A1000").Find("沖縄県")
> If FoundCell Is Nothing Then
>
> Else
> Worksheets("Sheet1").Range("A48").Value = "*"
>
> End If
>
> End With
>End Sub
一応、入れたら動きましたよ。
|
|