|
Statisさん有難う御座います。
試してみたいと思います。
出来ましたら、またご報告します。
有難う御座いました。
▼Statis さん:
>こんにちは
>
>一応、Sheet1のDEF列がすべて空白かを確認して、あった場合Sheet2のセルA1にコピーします。
>
>Sub Test()
>Dim R As Range
>With Worksheets("Sheet1")
> With .Range("C2", .Range("C65536").End(xlUp)).Offset(, 253)
> .Formula = "=IF(AND(D2="""",E2="""",F2=""""),1,"""")"
> On Error Resume Next
> Set R = .SpecialCells(xlCellTypeFormulas, 1)
> If Err.Number <> 1004 Then
> R.Offset(, -253).Copy Worksheets("Sheet2").Range("A1")
> Else
> MsgBox "データはありません。", vbCritical
> End If
> On Error GoTo 0
> .Clear
> End With
>End With
>Set R = Nothing
>End Sub
|
|