Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29578 / 76732

←次へ　｜　前へ→


	【52433】xlCellTypeConstantsで”ＣＤ”という文字

植木ねこ - 07/11/14(水) 11:34 -


	引用なし

	パスワード

はじめまして。

Ａ列に"23","CD","8M"などの文字列と、その文字の合間合間に空白セルがある列に対して、上から順に文字のあるセルをひとつずつ選択するというコードを書いています。

　　　 A列
1行目　23
2〃　
3〃　　
4〃　　 23
5〃　　 CD
…

下記のようにすると、数字の"23"は選択してくれるのですが、文字の"CD"のところでエラーになります。
xlCellTypeConstants は数値と文字列だと思うのですが、どうすれば"23"も"CD"も検索することが出来るでしょうか？

Sub てすと()
　　Dim saigocel As Range
　　Dim saishocel As Range
　　　　
　　Set saishocel = Range("A1")
　　　　
　　Do
　　
　　Set saigocel = Range(saishocel, "A38").Find(xlCellTypeConstants)
　　saigocel.Select
　　　　
　　Set saishocel = saigocel.Offset(1, 0)
　　　　
　　Loop Until saigocel = Range("A38")
　　
End Sub

2 hits

▼

【52433】xlCellTypeConstantsで”ＣＤ”という文字 植木ねこ 07/11/14(水) 11:34

≪