Excel VBA質問箱 IV

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

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


43842 / 76732 ←次へ | 前へ→

【37917】Re:別シート表から空欄行を検索し番号を取得する
お礼  hana  - 06/5/23(火) 14:10 -

引用なし
パスワード
   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
0 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 お礼

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