

No.3ベストアンサー
- 回答日時:
A B C D
1 name name
2 クワタケイスケ 桑田佳祐 FALSE
3 桑田佳祐 原由子
4 ハラユウコ 松田弘
5 原由子
6 マツダヒロシ
7 松田弘
8
D2: =CODE(A2)>12320
次の設定で[フィルタオプションの設定]を実行
[抽出先] → “指定した範囲”
[リスト範囲] → $A$1:$A$1000
[検索条件範囲] → $D$1:$D$2
[抽出範囲] → $B$1
“重複するレコードは無視する”に目玉入れ
この回答への補足
有難うございました。
いい方法がみつかったので締め切りします。
隣の列にabababababなどといれ、カタカナをaで抽出、行削除
そしてb行だけ残しました。
上記の方法もありがたかったので次点とさせていただきます。
No.4
- 回答日時:
Sub 漢字のみ抽出()
Dim 範囲 As Range
Dim r As Range
Dim t1 As String, t2 As String, t3 As String
Dim i As Long
Set 範囲 = Range(Cells(1, 1), Cells(Cells(65536, 1).End(xlUp).Row, 1))
i = 1
For Each r In 範囲
t1 = StrConv(r.Value, vbKatakana) ' ひらがなをカタカナに変換
t2 = StrConv(t1, vbWide) ' 半角を全角に変換
t3 = StrConv(t1, vbNarrow) ' 全角を半角に変換
' t2とt3で一致するのは元が漢字であったもののみ
If t2 = t3 Then
Cells(i, 2).Value = r.Value
i = i + 1
End If
Next
End Sub
\は全角に出来ないかもしれない。
この回答への補足
有難うございました。
いい方法がみつかったので締め切りします。
隣の列にabababababなどといれ、カタカナをaで抽出、行削除
そしてb行だけ残しました。
上記の方法もありがたかったのです。
No.2
- 回答日時:
最初の文字がひらがな、カタカナだとして
B列に =CODE(LEFT(A1,1)) といれて下へコピィしてみてください。
色々な数値が出ると思いますが、オートフィルターで10000位以下の数値を表示させたら
漢字以外になりませんか、
その行を全て削除して、オートフィルターを解除します。
B列に関数が希望でしたら、出来るとは思いますが
作業列を考えるのが簡単だと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの式がわかる方がおら...
-
Microsoft Officeを2台目のPCに...
-
Excelで〇のついたものを抽出し...
-
大学のレポート A4で1枚レポー...
-
Microsoft Formsの「個人情報や...
-
office2019 のoutlookは2025年1...
-
マイクロソフト オフィスのサポ...
-
Office2024インストール後の疑問点
-
パソコンを買い替える際、前の...
-
Excel 日付を比較したら、同じ...
-
outlookのメールが固まってしま...
-
Office 2021 Professional Plus...
-
別シートの年間行事表をカレン...
-
エクセルで質問です。 ハイパー...
-
以下マクロの処理を最終行まで...
-
エクセル 日付順に並べてかえた...
-
VBAファイルの保存先について
-
会社のOutlookにてメールを予約...
-
MicrosoftOfficeの1ユーザー2...
-
Office2021を別のPCにインスト...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Microsoft Officeを2台目のPCに...
-
大学のレポート A4で1枚レポー...
-
マイクロソフト オフィスのサポ...
-
Office2021を別のPCにインスト...
-
エクセル 日付順に並べてかえた...
-
outlookのメールが固まってしま...
-
Excelで〇のついたものを抽出し...
-
Microsoft Formsの「個人情報や...
-
マクロ自動コピペ 貼り付ける場...
-
Office2024インストール後の疑問点
-
office2019 のoutlookは2025年1...
-
エクセルで質問です。 ハイパー...
-
エクセル 同じ数字を他の列に自...
-
別シートの年間行事表をカレン...
-
【Excel VBA】PDFを作成して,...
-
Excel 日付を比較したら、同じ...
-
パソコンWindows11 Office2021...
-
Office 2021 Professional Plus...
-
エクセル:一定間隔で平均値を...
-
Teams内でショートカットって貼...
おすすめ情報