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(エクセル)
-
6
EXCELで、セル内の半角カナのみを削除する関数
Excel(エクセル)
-
7
文字列から英数字のみを抽出する関数
Excel(エクセル)
-
8
エクセルでセルの中身が漢字かどうか識別する方法は?
Excel(エクセル)
-
9
エクセルで、半角文字列を抽出するには
Excel(エクセル)
-
10
エクセル、関数でセル内の半角カタカナ漢字、を分けて他のセルへ表示する方法
Excel(エクセル)
-
11
セル内文章から、英数字のみ取り出す関数を教えてください
Excel(エクセル)
-
12
Excelで半角の文字を含むセルを探したい
Excel(エクセル)
-
13
エクセルでセルのデータがカタカナかどうか調べたい。
Excel(エクセル)
-
14
エクセルでアルファベットか数値の判定をしたいのですが
Excel(エクセル)
-
15
エクセルの関数で、記号などを抽出もしくは削除したい
Excel(エクセル)
-
16
エクセル2016 条件付き書式で全角カタカナ以外が含まれている場合に色をつける
Excel(エクセル)
-
17
Excel。英数字カタカナ混ぜこぜのセルで、カタカナのみ全角にする方法は?
Windows 95・98
-
18
エクセルの削除
Excel(エクセル)
-
19
エクセル ひらがなの文字を抽出
Excel(エクセル)
-
20
ローマ字→カタカナへ変換(エクセルで)
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Officeを開くたびの「再起動メ...
-
英数字のみ全角から半角に変換
-
マイクロソフト 一時使用コード...
-
マクロの書き方を教えて下さい
-
outlookのメールが固まってしま...
-
大学のレポート A4で1枚レポー...
-
エクセルでXLOOKUP関数...
-
会社PCのメールが更新されない
-
【Excel VBA】PDFを作成して,...
-
excelの画面のグリッド線の消滅。
-
teams設定教えて下さい。 ①ビデ...
-
Microsoft Formsの「個人情報や...
-
PCを買い換えました。 今使って...
-
エクセルで英文字に入れた下線...
-
Office 2021 Professional Plus...
-
会社のTeamsのことで相談です。...
-
【Excel】セル内の文字が正しい...
-
みつも朗ってソフトはなにがで...
-
マクロ1があります。 A1のセル...
-
Outlook 電源OFFの受診の仕方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
英数字のみ全角から半角に変換
-
「生産性ソフトウェア」とは何...
-
会社PCのメールが更新されない
-
【関数】○年○ヶ月と表示された...
-
WEBの記事を印刷する際にA...
-
エクセルでXLOOKUP関数...
-
Microsoft familyに追加されま...
-
会社のOutlookにてメールを予約...
-
Microsoft Formsの「個人情報や...
-
Microsoft365の一部を解約したい
-
マクロ自動コピペ 貼り付ける場...
-
Outlook で宛先が複数の場合の人数
-
outlookのメールが固まってしま...
-
【Excel VBA】PDFを作成して,...
-
大学のレポート A4で1枚レポー...
-
office365って抵抗感ないですか?
-
Microsoftにofficeアプリについ...
-
Excel テーブル内の空白行の削除
-
マイクロソフト 一時使用コード...
おすすめ情報