全角アルファベットをも含むセルの抽出方法

質問

Excelについて、セル範囲内のうち、全角アルファベットを１文字でも含むセルを抽出する方法を教えてください。
（例）
A1 大阪600
A2 東京7Ｋ00
A3 愛知8F00
の場合、A2を抽出

全角のみが難しいようでしたら、半角を含んでもＯＫです。

よろしくお願いします。

回答No.2

imogasi · ベストアンサー

（１）質問のことだけを取り上げた、エクセル操作は無いと思います。
（２）関数でも難しいでしょう。
残るはフリーソフトやVBAですが,文字種を問題にするのは、簡単でなない。
（３）各セルの全文字を繰り返し該当か、聞いて行く手もありますが、好みではない。
（４）残るは正規表現で全角英字を文字コードで捉える方法があると思う。
ーー
（４）ではWEB記事を借用して、標準モジュールに
Sub sample1()
Dim i As Long
Set re = CreateObject("VBScript.RegExp")
Dim strIn As String

Patternc = "[A-Z]"　’ここがポイント
For i = 1 To 4
With re
.Global = True '文字列全体を検索
.IgnoreCase = True '大文字小文字を区別しない
.Pattern = Patternc
If .test(Cells(i, "A")) Then
Cells(i, "B") = "OK"
Else
Cells(i, "B") = "NG"
End If
End With
Next
End Sub
で
A1:A4に下記データ例で
asＡ
df1Ｃ
ｑｗ２３
12dfＢＧ
ーー
実行して
A1;B4に
asＡ OK
df1Ｃ OK
ｑｗ２３ NG
12dfＢＧ OK
となり、B列が「OK」のA列行のデータには、全角英字があるということになる。

回答No.4

SI299792

B1: =IF(SUMPRODUCT(COUNTIF(A1,"*"&UNICHAR(ROW($65313:$65338))&"*")),ROW())
下へコピペ。（作業列です。目障りなら非表示にして下さい。）
C1: =IFERROR(INDEX(A:A,SMALL(B:B,ROW())),"")
下へコピペ。

回答No.3

msMike

添付図参照(Excel 2019)
１．式 =INDEX($A1:$A3,COLUMN(A1)) を入力したセル E2 を右方２列
￣￣にオートフィル
２．範囲 E3:G54 を選択⇒Alt+MC⇒“上端行”以外のチェック外し⇒[OK]
３．式 =IFERROR(FIND($D3,E$2)>1,"") を入力したセル E3 を右方２列
￣￣下方54行目までオートフィル
４．式 =IF(COUNTIF(INDIRECT(E2),TRUE),"あり","なし") を入力したセル
￣￣E1 を右方２列にオートフィル
５．式 =IF(INDEX(E$1:G$1,MATCH(A1,E$2:G$2,0))="あり","○","×") を入
￣￣力したセル B1 を下方２行目までオートフィル
オ・シ・マ・イ

回答No.1

NuboChan

VBAでの回答です。
Debug.Printステートメントを使用して、抽出したセルの値をイミディエイトウィンドウに表示しています。

このコードを必要に応じて変更して、どこに表示か指定してください。
（セルの抽出については記載がないので.......)

Sub ExtractCells()

Dim cell As Range

For Each cell In Range("A1", Cells(Rows.count, 1).End(xlUp))
If cell.Value Like "*[Ａ-Ｚａ-ｚ]*" Then ' 全角アルファベットを含むかどうかを判定
Debug.Print cell.Value
End If
Next
End Sub