いつも回答して頂き、心から感謝しています。
FINDで特定セルを探し出し、そこを起点にコピーする領域を設定しようかなと考えています。
で、FINDの部分で早くも分からなくなったので質問します。
下記のようなマクロを記述しましたが、FINDの記述の箇所でエラーが発生してしまいます。
何が悪いのかさっぱり分からないので、どなたか教えて下さい。
エラー名：実行時エラー13
型が一致しません。
Sub 作業状態の部分を作業名別に各シートに貼り付ける()
Dim b1 As Variant
With Worksheets("書面")
Set b1 = .Columns("B").Find("作業状態", xlValues, xlWhole, xlByColumns, xlNext)
b1.Select
End With
End Sub
↧