
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を探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
英数字のみ全角から半角に変換
-
住宅にカナを入力する際に丁目...
-
IEからEdgeへの移行に伴うIMEの...
-
エクセルでの”々”の扱い
-
VBA 文字に半角が含まれて...
-
プログラミングでは、半角括弧...
-
エクセルにMicrosoft Barcode C...
-
半角/全角文字混在データの分...
-
エクセルの検索が正しくできな...
-
ACCESS VBA でのバイナリデー...
-
全角英数字の必要性が理解できない
-
VB.net、テキストボックス入力...
-
「一角」って何でしょうか
-
Accessで日付や数値を全角で表...
-
UWSC教えて
-
char型全角数字から、int型半角...
-
VBA Shift-JISをJISに変換する...
-
封筒の宛先で縦書きの書き方
-
COBOLでの全角文字の判定をした...
-
全角数字を半角数字にする方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
住宅にカナを入力する際に丁目...
-
英数字のみ全角から半角に変換
-
IEからEdgeへの移行に伴うIMEの...
-
全角英数字の必要性が理解できない
-
LaTeXで半角カンマと全角カンマ...
-
エクセルにMicrosoft Barcode C...
-
VBA 文字に半角が含まれて...
-
プログラミングでは、半角括弧...
-
エクセルでの”々”の扱い
-
COBOL・全角判定
-
word差し込み印刷 半角カタカ...
-
メモ帳の段落の揃え方
-
char型全角数字から、int型半角...
-
全角入力
-
いまスマホからカードの申込み...
-
VB.net、テキストボックス入力...
-
Accessのテキストボックスの入...
-
正規表現で、全角文字を半角文...
-
明細書の英数字の全角・半角に...
-
ダブルコーテーションの置換
おすすめ情報