No.7ベストアンサー
- 回答日時:
No5&6です。
> 特定の列のみでも可能でしょうか。
これを見落としていました。
そうであれば、たとえばA列だけを対象とするなら
For Each c In ActiveSheet.UsedRange を
For Each c In ActiveSheet.Range("A:A") に変えてください。B列なら("B:B")です。わかりますよね?
お礼が遅くなり申しわけありません。
悪戦苦闘しながらもなんとかでき、
無事仕事の方も終りました。
度々丁寧なお返事ありがとうございました。
また、なにかありましたら、お願いします。
No.6
- 回答日時:
No6です。
VBAは初めてですか。それじゃ試しにやってみましょう。
失敗するといけないから最初にちゃんとバックアップを取っておいてくださいね。
1.Altキー + F11キー
または、[ツール] メニューの [マクロ] をポイントし、 Visual Basic Editorをクリックします。
2.Visual Basic Editor ウィンドウのメニューから、
[挿入]→[標準モジュール] をクリックします。
3.表示されたコードウィンドウ(白い部分)に先ほどのマクロコードをそのままコピペします。 (Sub TEST からEnd Subまで)
4.もとのワークシートに戻り、[ツール] メニューの [マクロ] →「マクロ」で今貼り付けたマクロ名(TEST)を選択して、実行。
これでめでたく文字が消えたらおめでとう!
No.5
- 回答日時:
エクセルVBAを使えば数値以外すべてを消去できます。
作成してみました。
当方エクセル2000ですがご希望どおりの動きをしました。
Sub TEST()
For Each c In ActiveSheet.UsedRange
If IsNumeric(c) = False Then
xc = Len(c)
For n = xc To 1 Step -1
If IsNumeric(c.Characters(n, 1).Text) = False Then c.Characters(n, 1).Text = ""
Next n
End If
Next c
End Sub
VBAの使用方法が不明な場合は補足してください。
この回答への補足
回答ありがとうございます。
VBAの使い方全くわかりません。
詳しく教えていただけませんでしょうか。
特定の列のみでも可能でしょうか。
No.3
- 回答日時:
A列に半角数字(桁数バラバラ)+全角漢字かな(桁数バラバラ)があるとします。
半角は先頭部にあるとします。B1セルに関数式=LEFT(A1,LEN(A1)*2-LENB(A1))
と入れて、B2以下に、A列のデータの最終行まで複写します。LEN(A1)*2-LENB(A1)はLEN(A1)-(LENB(A1)-LEN(A1))
から来ています。
全角漢字かな(桁数バラバラ)+半角数字(桁数バラバラ)の行も混じっているなら、まず最初にA列でソートして
下さい(注)。先頭部が半角のセルは前半(上部)、全角文字列が先頭部にあるセルは表の下部に固まります。半角が先頭部にあるセルが固まった上部には、上記の関数式を
、全角が先頭部にくるセルには=RIGHT(A3,LEN(A3)*2-LENB(A3))
をいれて、それより下行に複写するとよい。
式の中の「A3」の部分は、実際例では、全角先頭部のセルが初めて現れる行で置き変えること。
(注)後で元の順序に戻したいのなら、ソートする前に、第1行目からの連番を空き列にオートフィルで振っておきます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
これ何て呼びますか Part2
あなたのお住いの地域で、これ、何て呼びますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
エクセルで数値以外の文字を削除する方法
Excel(エクセル)
-
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
-
4
Excel 文字列の中から数字だけを削除したい
その他(Microsoft Office)
-
5
エクセルVBAで画像から文字を抽出出来ますか?
その他(Microsoft Office)
-
6
文字列から英数字のみを抽出する関数
Excel(エクセル)
-
7
(VBA)特定の数字以外の行を削除する方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルマクロで偶数行(又は...
-
エクセルで特定の文字列が入っ...
-
[EXCEL]ボタン押す→時刻が表に...
-
特定の文字がある行以外を削除...
-
エクセル マクロで数値が変っ...
-
Excel グラフのプロットからデ...
-
サイズの違うセル 並べ変え
-
完全一致したら代入するマクロ...
-
セルの色によって条件文をつけ...
-
Excel ウインドウ枠の固定をす...
-
Excel2007で、指定範囲の行高さ...
-
エクセル マクロ オートフィ...
-
エクセル2016で時間を入力して...
-
VBAで色の付いているセルの行削除
-
エクセル 上下で列幅を変えるには
-
Excel VBAで「セルが選択された...
-
excel 小さすぎて見えないセル...
-
【Excel関数】UNIQUE関数で"0"...
-
結合されたセルをプルダウンの...
-
AのセルとB行を比較して、一致...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
【Excel関数】UNIQUE関数で"0"...
-
特定の文字がある行以外を削除...
-
エクセル マクロ オートフィ...
-
[EXCEL]ボタン押す→時刻が表に...
-
AのセルとB行を比較して、一致...
-
VBAで色の付いているセルの行削除
-
Excel グラフのプロットからデ...
-
エクセル マクロで数値が変っ...
-
excel 小さすぎて見えないセル...
-
エクセル 上下で列幅を変えるには
-
罫線の斜線を自動で引くマクロ
-
結合されたセルをプルダウンの...
-
セルの色によって条件文をつけ...
-
エクセルのマクロで意図しない...
-
エクセルVBA 最終行を選んで並...
-
excelのデータで色つき行の抽出...
-
Excelのフィルター後の一番上の...
-
エクセル 時間の表示形式AM/PM...
-
Excelでカタカナ・ひらがな・英...
おすすめ情報