Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


43845 / 76732 ←次へ | 前へ→

【37914】Re:別シート表から空欄行を検索し番号を取得する
回答  Statis  - 06/5/23(火) 11:54 -

引用なし
パスワード
   こんにちは

一応、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
2 hits

【37911】別シート表から空欄行を検索し番号を取得する hana 06/5/23(火) 10:33 質問
【37912】Re:別シート表から空欄行を検索し番号を取... Statis 06/5/23(火) 10:43 発言
【37913】Re:別シート表から空欄行を検索し番号を取... hana 06/5/23(火) 11:44 お礼
【37914】Re:別シート表から空欄行を検索し番号を取... Statis 06/5/23(火) 11:54 回答
【37917】Re:別シート表から空欄行を検索し番号を取... hana 06/5/23(火) 14:10 お礼
【37918】Re:別シート表から空欄行を検索し番号を取... Kein 06/5/23(火) 14:20 回答
【37932】Re:別シート表から空欄行を検索し番号を取... hana 06/5/23(火) 16:42 お礼

43845 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free