Excel VBA質問箱 IV

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

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


31 / 13645 ツリー ←次へ | 前へ→

【82277】ダブルコーテーション以外の空白は代入できない? shun 24/3/7(木) 17:21 質問[未読]
【82278】Re:ダブルコーテーション以外の空白は代入... マナ 24/3/7(木) 19:33 発言[未読]
【82279】Re:ダブルコーテーション以外の空白は代入... shun 24/3/11(月) 13:57 お礼[未読]
【82280】Re:ダブルコーテーション以外の空白は代入... JK 24/3/25(月) 23:33 発言[未読]

【82277】ダブルコーテーション以外の空白は代入で...
質問  shun  - 24/3/7(木) 17:21 -

引用なし
パスワード
   IFERROR(Vlookup(A1,シート!A:A,1,0),"")などで、エラーに空白を埋めます。
""を埋めたセルは0の空文字列なのでCTRL+矢印での空白検索の対象外になります。
VBAではEnd(xlDown).Rowなどが正しく動かず、行列数が把握ができません。
accessのようにnullのような空白は埋められますでしょうか。
IFERROR(Vlookup(A1,シート!A:A,1,0),null)的な。
よろしくお願いします。

【82278】Re:ダブルコーテーション以外の空白は代...
発言  マナ  - 24/3/7(木) 19:33 -

引用なし
パスワード
   ▼shun さん:

>""を埋めたセルは0の空文字列なのでCTRL+矢印での空白検索の対象外になります。

Sub test()
  Worksheets.Add
  Range("A3").Value = ""
  Range("A4").Formula = "="""""
  Range("A5").Value = "a5"

  Range("A1").End(xlDown).Select

  MsgBox Columns("A").Find("*", , xlFormulas).Row
  MsgBox Columns("A").Find("*", , xlValues).Row
End Sub

【82279】Re:ダブルコーテーション以外の空白は代...
お礼  shun  - 24/3/11(月) 13:57 -

引用なし
パスワード
   ご回答ありがとうございます。

Find("*", , xlFormulas).Row


なるほどです。

ありがとうございました。

【82280】Re:ダブルコーテーション以外の空白は代...
発言  JK  - 24/3/25(月) 23:33 -

引用なし
パスワード
   ??

Range("A3").Value = Empty

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