人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Excelの質問です。
A列に,1行目から順に3万名分の個人氏名が入力されています。
そのなかに,氏名の一部に外字エディタで作成した外字が含まれているセルがあります。
セルの一部に外字が含まれているときに,外字が含まれる行のB列に何らかのマーク(「外字」や数字の「1」など)をつける方法はありますか。
Excelのバージョンは2003ないし2007です。


●質問者: humberthumbert
●カテゴリ:コンピュータ
✍キーワード:Excel エディタ セル バージョン マーク
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● HALSPECIAL
●35ポイント

VBAは可ですか?

未確認ですが、こちらでどうでしょう。


Option Explicit

Public Sub CheckGAIJI()
  'A列のチェック開始セルをアクティブにした状態で実行
 Do Until ActiveCell.Value = ""
 If ActiveCell.Value Like "*[" & Chr(&HF040) & "-" & Chr(&HF9FC) & "]*" Then
 ActiveCell.Offset(0, 1).Value = "外字"
 End If
 ActiveCell.Offset(1, 0).Activate
 Loop
End Sub

'参考:No36343.外字チェックの方法
' http://www.accessclub.jp/bbs3/0101/superbeg36343.html


2 ● SALINGER
●35ポイント

VBAでの方法です。

Sub Macro()
 Dim lastRow As Long
 Dim i As Long
 
 lastRow = Cells(Rows.Count, 1).End(xlUp).Row
 For i = 1 To lastRow
 If Cells(i, 1).Value Like "*[" & Chr(&HF040) & "-" & Chr(&HF9FC) & "]*" Then
 Cells(i, 2).Value = "外字"
 Else
 Cells(i, 2).Value = ""
 End If
 Next
End Sub
関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ