No.3ベストアンサー
- 回答日時:
空白を削除するセルを選択して、下記のマクロを実行します。
空白を除いた文字に書き換えます。蛇足ですが、セルを選択する時は、先頭セルを選択して、Shift+Ctrl+↓等で連続エリアが選択できます。
また、Ctrlキーを押しながらマウスで飛び飛びに選択できます。
Sub 空白を除去()
Dim rg As Range 'セル
For Each rg In Selection
rg = Trim(rg) '左右の空白を削除
Next
End Sub
Trimに関する関数には以下のものがあります。必要なものを使い分けてください。
Trim(rg) 左右の空白を削除(VBA)
RTrim(rg) 右の空白を削除(VBA)
LTrim(rg) 左の空白を削除(VBA)
Application.Trim(rg) 左右、途中の空白を削除(ワークシート関数)
No.5
- 回答日時:
選択範囲(単一列)に同じ値があると2つ目以降について、その行を削除してしまいます。
重複を調べる列のデータ範囲を選択して、下のマクロを実行します。
標準モジュールに貼り付ければ、どのシートについても実行できるはずです。質問の意味はこういうこと?
Sub 同一値がある行の削除()
Dim rg As Range '選択範囲
Dim cot As Long 'カウンタ
Set rg = Selection
Application.ScreenUpdating = False
With rg
For cot = .Count To 1 Step -1
If Application.CountIf(Range(.Cells(1, 1), .Cells(cot, 1)), .Cells(cot, 1)) > 1 Then
Rows(.Cells(cot, 1).Row).Select: Selection.Delete Shift:=xlUp
End If
Next
.Cells(1, 1).Select
End With
Application.ScreenUpdating = True
End Sub
No.4
- 回答日時:
同一データの削除については、A1から下方向にデータがあるとすると、B1に
=IF(COUNTIF($A$1:A1,A1)>1,"*","")
として、データ分コピーします。あとはオートフィルタを使い「*」だけを出して削除すれば重複データを除けます。これもマクロで行いたい?
No.2
- 回答日時:
Masazo-さんに便乗です。
下方向へのコピーが大量なら、セルB1の右下の■(フィルハンドルという)を
ダブルクリックするとOKです。(途中に空白があったらだめですけど)
確認にはCtrlキーを押したまま、↓キーを押すと最終行までジャンプできます。
> がいまいちよくわからず,エラーが出て実行できません.
このエラーが何なのか、気になります。
回答ありがとうございます。
フィルハンド、知りませんでした。便利ですね!覚えておきます。
VisualBasicEditorでマクロを作ろうと思い、
Sub 空白を除去
(ここをどうにかしてセルの内容をTrimしたものと置き換えたい)
End Sub
をどうにかこうにかしたのですが、技術力不足のせいで出来ません(;;)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの表でダブりを解消する方法を、教えてください。 5 2023/04/12 12:11
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/10 11:34
- Excel(エクセル) 【VBA】複数ブックから特定のシートを抽出して一つのブックに集約するマクロについて 3 2022/09/04 15:05
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- その他(プログラミング・Web制作) テキストエディタで複数行にわたる文字列の行頭に番号を振る方法 4 2023/03/11 12:57
- Visual Basic(VBA) Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです 2 2023/03/05 02:44
- Excel(エクセル) エクセルの複写について 4 2022/04/10 01:02
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでの作業計算方法について
-
はがきについて。
-
エクセル 文字を増やしたい。
-
セルの内容表示が邪魔になる
-
Microsoft365に変えたのですが...
-
エクセルの計算
-
Microsoft1Officeの互換ソフト...
-
【マクロ】その時、その時で変...
-
【マクロ】読取専用のファイル...
-
エクセル初心者です 関数の入れ...
-
Excel ピボットテーブルで日付...
-
【関数】適切な文字数の数字を...
-
LOOKUP関数を使えばいいのでし...
-
Aというブックの1というシート...
-
エクセル関数を教えてください
-
Excelのチェックボックスの使い...
-
エクセル 白黒印刷で白線を印刷...
-
時間によってファイル名が変わ...
-
WPS OFFICEでの縦書きについて
-
エクセルの条件付き書式につい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報