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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルの数式で教えてください。 1 2023/07/31 15:49
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- Excel(エクセル) エクセルでセルに何らかの文字が入力されたらそれを任意の数値として認識させる方法がしりたいです。 3 2023/03/16 20:19
- Excel(エクセル) エクセルにおいてセル内の文字を出来るだけ大きく表示する方法を教えてください。 4 2022/07/30 08:08
- Excel(エクセル) セルに入力した小文字アルファベット、数字を大文字表示させるには? 3 2022/07/13 10:01
- Excel(エクセル) エクセルの数式について教えてください。 2 2023/02/18 11:30
- Excel(エクセル) エクセルで文字列と数字が混在する列に書式設定したい。 3 2022/12/19 09:11
- Excel(エクセル) エクセルの数式で教えてください。 2 2022/04/01 09:10
- Excel(エクセル) Excelの文字列を数字に変換する方法について 6 2023/07/31 21:18
- Excel(エクセル) Excelでの検索結果を含む行だけを表示させたい 5 2023/03/10 17:08
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
エクセルで数値以外の文字を削除する方法
Excel(エクセル)
-
Excel 文字列の中から数字だけを削除したい
その他(Microsoft Office)
-
文字列から英数字のみを抽出する関数
Excel(エクセル)
-
-
4
(VBA)特定の数字以外の行を削除する方法
Excel(エクセル)
-
5
Excelで数値→文字列変換で指数表示になったものをいっぺんに直したい
Excel(エクセル)
-
6
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
7
マクロで貼り付け位置を可変させる方法が知りたいです。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
電話番号の入力方式が違うデー...
-
VBAで色の付いているセルの行削除
-
AのセルとB行を比較して、一致...
-
[EXCEL]ボタン押す→時刻が表に...
-
エクセルで特定の文字列が入っ...
-
【Excel関数】UNIQUE関数で"0"...
-
特定の文字がある行以外を削除...
-
完全一致したら代入するマクロ...
-
excel 小さすぎて見えないセル...
-
セルの色によって条件文をつけ...
-
エクセルVBA 最終行を選んで並...
-
エクセル 上下で列幅を変えるには
-
Excelのフィルター後の一番上の...
-
excel 同じ番号のデーターを横...
-
1つのシートで2つ目のマクロ
-
Excel グラフのプロットからデ...
-
エクセル マクロ オートフィ...
-
Excelで一致しない文字のみを返...
-
エクセル 数字のみ残したい
-
エクセル2016で時間を入力して...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
エクセル マクロ オートフィ...
-
【Excel関数】UNIQUE関数で"0"...
-
[EXCEL]ボタン押す→時刻が表に...
-
結合されたセルをプルダウンの...
-
エクセル マクロで数値が変っ...
-
Excel グラフのプロットからデ...
-
AのセルとB行を比較して、一致...
-
エクセル 上下で列幅を変えるには
-
Excel ウインドウ枠の固定をす...
-
特定の文字がある行以外を削除...
-
excelのデータで色つき行の抽出...
-
エクセル2016で時間を入力して...
-
excel 小さすぎて見えないセル...
-
EXCELで最後の行を固定
-
エクセルVBA 最終行を選んで並...
-
VBAで色の付いているセルの行削除
-
エクセルマクロで偶数行(又は...
-
エクセルのセルに指定画像(.jpg...
-
罫線の斜線を自動で引くマクロ
おすすめ情報