No.4ベストアンサー
- 回答日時:
たとえば、半角文字を抽出するなら以下のような数式がわかりよいかもしれません。
=MID(A1,MIN(INDEX((MID(A1,ROW($A$1:$A$100),1)=MID(JIS(A1),ROW($A$1:$A$100),1))*100+ROW($A$1:$A$100),)),LENB(JIS(A1))-LENB(A1))
No.5
- 回答日時:
こんばんは。
ユーザー定義関数です。あまり多くなるとシートが重くなりますので、必要に応じて、コピー--値貼り付けにします。
数式は、
=KtPickUp(A1) 半角・全角両方
=KtPickUp(A1,1) 半角
=KtPickUp(A1,2) 全角
※標準モジュールへの取り付け方:
Alt + F11 (Altを押しながらF11)を押すと、Visual Basic Editor 画面が出てきます。
次に、メニューの[挿入]-[標準モジュール]と開けて、クリックすると、画面が現れますので、以下のコードを貼り付けて、
Alt + Q で、画面を閉じます。
'-------------------------------------------
Function KtPickUp(ByVal rng As Range, Optional i As Integer) As String
'オプション なし、全角・半角カタカナ両方, 1 半角, 2 全角
Dim Matches As Object
Dim Match As Object
Dim buf As Variant
If VarType(rng.Value) = vbString Then
With CreateObject("VBScript.RegExp")
.Global = False
If i = 1 Then
.Pattern = "[\uFF61-\uFF9F]+" '半角
ElseIf i = 2 Then
.Pattern = "[\u30A1-\u30FA]+" '全角
Else
.Pattern = "[\u30A1-\u30FA\uFF61-\uFF9F]+" '両方
.Global = True
End If
Set Matches = .Execute(rng.Value)
For Each Match In Matches
buf = buf & Match
Next
End With
KtPickUp = buf
Else
KtPickUp = rng.Value
End If
End Function
皆様、ご丁寧なご回答まことにありがとうございました。
説明してくださっている文章は、Excelの知識が乏しい私には難しく理解できませんでした。Excelの基礎をもう一度、一から学んでみたいと存じます。
また何かわからない点がございました折には、何卒ご教授のほどよろしくお願いいたします。
これをもちまして皆様へのお礼とさせていただきたく存じます。
No.3
- 回答日時:
試しにマクロを組んでみました。
全角カタカナ文字を抽出します(と思います)。
対象セル範囲を選択しておいて実行してください。
Sub test1()
Dim myCell As Range
Dim myChr As String
Dim myStr As String
Dim n As Integer
Dim i As Integer
For Each myCell In Selection
n = Len(myCell.Value)
For i = 1 To n Step 1
myChr = Mid(myCell.Value, i, 1)
If myChr Like "[ァ-ヶ]" Then
myStr = myStr & myChr
End If
Next i
myCell.Offset(, 1).Value = myStr
myStr = ""
Next myCell
End Sub
半角文字の場合は、バイト数で判定すれば良いかもしれません。
No.2
- 回答日時:
>また、同様に半角文字のみをとなりのセルに表示させる方法も探しています。
を見逃していました。 といっても、同様な方法で
半角文字がつながっていることが条件。
=IF(LEN(A1)*2=LENB(A1),"",
MID(A1,MATCH(FALSE,MID(A1,COLUMN($A$1:INDEX($1:$1,LEN(A1))),1)=
MID(JIS(A1),COLUMN($A$1:INDEX($1:$1,LEN(A1))),1),0),LEN(A1)*2-LENB(A1)))
[Ctrl]+[Shift] +[Enter] で確定
#もっとスマートな方法がありそうだけど・・・良くわかりませんm(_ _)m
No.1
- 回答日時:
こんなん 数式で出してもいいのだろうか・・・と思いつつ
一単語のみ、エラー処理なし。
=MID(A1,
MATCH(1,(CODE(MID(A1,COLUMN($A$1:INDEX($1:$1,LEN(A1))),1))>=9505)*
(CODE(MID(A1,COLUMN($A$1:INDEX($1:$1,LEN(A1))),1))<=9588),0),
SUM((CODE(MID(A1,COLUMN($A$1:INDEX($1:$1,LEN(A1))),1))>=9505)*
(CODE(MID(A1,COLUMN($A$1:INDEX($1:$1,LEN(A1))),1))<=9588)))
[Ctrl]+[Shift] +[Enter] で確定、配列数式です({}で囲まれる)
下へオートフィル
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/15 08:30
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
- Excel(エクセル) エクセルの数式で教えてください。 1 2022/07/08 13:46
- Visual Basic(VBA) エクセルの数式で教えてください。 1 2023/07/31 15:49
- Excel(エクセル) Excelにの以下の設定方法について教えてください! C列にデータ入力の設定をしています。(出、入を 3 2022/06/22 01:33
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/03/09 16:55
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/04/21 08:59
- その他(Microsoft Office) エクセルについて教えてください。 2 2022/10/20 14:55
- Excel(エクセル) エクセルの数式について教えてください。 7 2023/06/18 10:16
- Excel(エクセル) エクセルの数式で教えてください。 3 2023/04/17 09:25
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
Excelにて、カタカナだけのセルを抜き出す方法は?
Excel(エクセル)
-
EXCELで、漢字のみ抽出する式を教えてください。
Excel(エクセル)
-
Excelでカタカナ・ひらがな・英数字の抽出
その他(Microsoft Office)
-
-
4
エクセルでセルのデータがカタカナかどうか調べたい
Excel(エクセル)
-
5
EXCELで、セル内の半角カナのみを削除する関数
Excel(エクセル)
-
6
文字列から英数字のみを抽出する関数
Excel(エクセル)
-
7
全角・半角混在の文字列から半角文字のみ取り出す
Excel(エクセル)
-
8
エクセルで、半角文字列を抽出するには
Excel(エクセル)
-
9
セル内文章から、英数字のみ取り出す関数を教えてください
Excel(エクセル)
-
10
エクセルでセルの中身が漢字かどうか識別する方法は?
Excel(エクセル)
-
11
エクセル、関数でセル内の半角カタカナ漢字、を分けて他のセルへ表示する方法
Excel(エクセル)
-
12
Excelで半角の文字を含むセルを探したい
Excel(エクセル)
-
13
複数の文字列のいずれかが含まれていたらTRUEを返す関数について
Excel(エクセル)
-
14
エクセルでアルファベットか数値の判定をしたいのですが
Excel(エクセル)
-
15
Excel。英数字カタカナ混ぜこぜのセルで、カタカナのみ全角にする方法は?
Windows 95・98
-
16
エクセルの関数で、記号などを抽出もしくは削除したい
Excel(エクセル)
-
17
エクセルの削除
Excel(エクセル)
-
18
エクセルでアルファベットと日本語の文字列を分割する方法
Excel(エクセル)
-
19
エクセル2016 条件付き書式で全角カタカナ以外が含まれている場合に色をつける
Excel(エクセル)
-
20
EXCELファイルに誰がアクセスしたかを見たい
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
英数字のみ全角から半角に変換
-
会社のOutlookにてメールを予約...
-
マクロ自動コピペ 貼り付ける場...
-
「生産性ソフトウェア」とは何...
-
エクセルでXLOOKUP関数...
-
会社PCのメールが更新されない
-
Microsoft familyに追加されま...
-
大学のレポート A4で1枚レポー...
-
無料のオフィス互換ソフトの使...
-
Microsoft 365 の一般法人向け...
-
outlookのメールが固まってしま...
-
マイクロソフトオフィス
-
Outlook で宛先が複数の場合の人数
-
Outlook 電源OFFの受診の仕方
-
EXCELのセルへの色づけ
-
Microsoft365の一部を解約したい
-
vb.net オブジェクト指向につい...
-
Office 2021 Professional Plus...
-
マイクロソフト オフィスについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
英数字のみ全角から半角に変換
-
Excelで空白以外の値がある列の...
-
会社PCのメールが更新されない
-
Excel 日付を比較したら、同じ...
-
マイクロソフト 一時使用コード...
-
ウィンドウィズ メモ帳で日付だ...
-
MicrosoftOfficeの1ユーザー2...
-
Microsoft Formsの「個人情報や...
-
Officeの字体
-
エクセルでXLOOKUP関数...
-
Microsoft365で自動保存が出来...
-
Outlookで、任意のメールアドレ...
-
outlookのメールが固まってしま...
-
Microsoft 365 の一般法人向け...
-
Office2021を別のPCにインスト...
-
Microsoft 365のディフェンダー...
-
Excelに貼ったリンクについて E...
-
MicrosoftOffice2019なんですが、
-
Outlook で宛先が複数の場合の人数
おすすめ情報