No.1ベストアンサー
- 回答日時:
こんにちは
現状がどのような処理になっているのか不明ですけれど・・・
例えばこんな感じでしょうか?
Sub Sample()
Dim c, t, n
For Each c In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
t = Replace(Replace(c.Text, " ", ""), " ", "")
n = InStr(t, ",")
If n > 0 Then t = Left(t, n - 1)
c.Value = t
Next c
End Sub
No.2
- 回答日時:
No1です。
連投失礼。
すこしだけ、簡略化できたかも・・
Sub Sample2()
Dim c, t
For Each c In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
t = Replace(Replace(c.Text, " ", ""), " ", "")
If Len(t) Then c.Value = Split(t, ",")(0) Else c.Value = t
Next c
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/01/18 17:23
- Excel(エクセル) PowerQueryに詳しい方教えてください(Office365) 1 2022/07/24 21:11
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Excel(エクセル) エクセルの数式で教えてください。 2 2022/04/01 09:10
- Visual Basic(VBA) ExcelのVBAを使い、複数シートの同一箇所を、同一条件にて一括でソルバーを回す方法について 1 2022/04/23 11:49
- Visual Basic(VBA) 昨日、質問した件『VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカ 4 2022/04/07 14:39
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
上から順にすべてのデータを抽出したい
Excel(エクセル)
-
エクセル CSVファイルについて
Excel(エクセル)
-
シート名を簡単に書く方法があれば教えてください。
Excel(エクセル)
-
-
4
ExcelVBAで自動調整できますか?
Excel(エクセル)
-
5
Vba Windows上で開いているファイル名を取得したい
Visual Basic(VBA)
-
6
エクセルおいて,論理式の関数を使う場合は,空白のセルは,数字では0と扱われますか?
Excel(エクセル)
-
7
時間計算・表示についてお教えください。
Excel(エクセル)
-
8
[Excel] 以下のような、行がズレている2つの表を関数を使って同値チェックを行いたいです。 欲し
Excel(エクセル)
-
9
エクセルの数式で教えてください。
Excel(エクセル)
-
10
複数のセルの入力文字数の合計の文字数制限のポップアップ
Excel(エクセル)
-
11
【VBA】エクセルで値のみクリップボードにコピーするコードについて(貼り付け時の空白削除)
Visual Basic(VBA)
-
12
基本情報技術者の擬似言語プログラム このプログラムの答えは(ウ)です。でも配列に格納されてる順番が良
Visual Basic(VBA)
-
13
下記問題の答えがD"になる意味がわかりません。 Cだと思ったのですが、違うのですか? なぜ、bがf"
Java
-
14
エクセルについて
Excel(エクセル)
-
15
Excel:文字との間に数字の組合せ、次のセルの数字を1ずつ増やすには?
Excel(エクセル)
-
16
教えて下さい!VBAで複数Excelを1つのブックにまとめたいです。
Visual Basic(VBA)
-
17
スプレッドシートでフィルターが途中までしかかかりません。 設定をすると1番下の「1007」のセルまで
Excel(エクセル)
-
18
エクセルで縦に並んだデータを5行毎に横に並べたいです
Excel(エクセル)
-
19
【VBA】エクセルで最後の不要な改行コードを削除するコードについて
Visual Basic(VBA)
-
20
2つのシートを連動させたいです
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
英数字のみ全角から半角に変換
-
Accessで日付や数値を全角で表...
-
CString Format にて全角空白文...
-
住宅にカナを入力する際に丁目...
-
Accessのテキストボックスの入...
-
「 _ _ 」の正式名称を...
-
VBA 文字に半角が含まれて...
-
小説の点々は……と繋がらなくて...
-
C言語のコンパイルエラーなん...
-
COBOL・全角判定
-
Excelの中に全角ひらがな、漢字...
-
VBScriptの正規表現で半角スペ...
-
エクセルの検索が正しくできな...
-
COBOLでの全角文字の判定をした...
-
Word2007の全角文字、全角スペ...
-
封筒の宛先で縦書きの書き方
-
VBAの文字列の中に”(全角のダブ...
-
word差し込み印刷 半角カタカ...
-
Excel VBAでオートシェイプ内の...
-
UWSC教えて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
英数字のみ全角から半角に変換
-
住宅にカナを入力する際に丁目...
-
全角英数字の必要性が理解できない
-
Excel関数またはVBAでの質問に...
-
エクセルにMicrosoft Barcode C...
-
IEからEdgeへの移行に伴うIMEの...
-
VBA 文字に半角が含まれて...
-
COBOL・全角判定
-
プログラミングでは、半角括弧...
-
word差し込み印刷 半角カタカ...
-
メモ帳の段落の揃え方
-
よくアカウント等に使われる 半...
-
Accessのテキストボックスの入...
-
ダブルコーテーションの置換
-
エクセルでの”々”の扱い
-
小説の点々は……と繋がらなくて...
-
大文字と全角文字は同じ意味で...
-
[VBScript]バイト長の判定
-
封筒の宛先で縦書きの書き方
-
VBで、String型のデータが、...
おすすめ情報