【原创】VBA（实验23）如何去掉一列中的空格，多种工作表函数方法以及VBA方法

您所在的位置：网站首页 › word怎么删除不可见字符的空格符号 › 【原创】VBA（实验23）如何去掉一列中的空格，多种工作表函数方法以及VBA方法

【原创】VBA（实验23）如何去掉一列中的空格，多种工作表函数方法以及VBA方法

2024-07-14 02:43| 来源: 网络整理| 查看: 265

问题

左上角为a1

比如其中，key2 ,key4, key6 后面都可能带空格

key1key2 key3key4 key5key6 key7key8key9key10key11key12key10key10key10key12key12

VBA方法

所有的工作表函数，都是针对单元格的？ --也就是基本都得用循环

数组公式不是吧

'trim居然没生效，末尾空格也没去掉

好像trim是 VBA自带函数？不是工作表函数？

应该要修改value

Sub 删除空格() 'trim居然没生效，末尾空格也没去掉 Dim target1 As Object Dim i As Object Set target1 = ActiveSheet.Range("a1:a17") '是一个二维数组 For Each i In target1 Application.WorksheetFunction.Trim (i) 'Application.WorksheetFunction.Trim (target1) trim是针对cell的 Next i End Sub

查找资料

Selection.CurrentRegion.Select For Each c In Selection c.Value = Trim(c.Value)

不能用TRIM函数，不然全部空格都会删除。要用LTRIM函数、RTRIM函数组合使用。 LTRIM() 是去除字符首位的空格（不论有几个空格） RTRIM() 是去除字符尾部的空格（不论有几个空格）如二楼的回答，把Trim(c.Value) 改成 LTrim(RTrim(c.Value)) 即可。

一个单元格的怎么写？比如：去掉ActiveSheet.Cells(1, 1)的话怎么写？

Sub test() a = " ax aa b b " Debug.Print Trim(a) Debug.Print Application.WorksheetFunction.Trim(a) End Sub 结果 ax aa b b ax aa b b 我知道了，trim()和Application.WorksheetFunction.Trim()不一样

工作表函数中间的空格只保留一个

Sub Oval1_Click33()

Dim n, m, i

For n = 1 To 10

i = 1

m = ""

While i Len(Cells(n, 1)) + 1

If Asc(Mid$(Cells(n, 1), i, 1)) > 33 Then

m = m & Mid$(Cells(n, 1), i, 1)

End If

i = i + 1

Wend

Cells(n, 1) = m

End Sub

'替换整个文档范围的

ThisDocument.Content.Text = Replace(ThisDocument.Content.Text, vbCrLf, "")

'替换选中范围的

Selection.Range.Text = Replace(Selection.Range.Text, vbCrLf, "")

vbcrlf

char(10)

char(10)&vbtab

这样都可以吗？

仿造别人写的

Sub 删除空格() Dim target1 As Object Dim cell_i As Object Set target1 = ActiveSheet.Range("a1:a17") For Each cell_i In target1 cell_i.Value = Trim(cell_i.Value) Next cell_i End Sub

Sub 删除空格() Dim target1 As Object Dim cell_i As Object Set target1 = ActiveSheet.Range("a1:a17") For Each cell_i In target1 cell_i.Value = Application.WorksheetFunction.Substitute(cell_i.Value, " ", "") Next cell_i End Sub

工作表函数方法

去掉单元格内所有的空格

=SUBSTITUTE(A1," ","")

去掉首尾空格

=TRIM(A1) 去掉所有非打印字符

=CLEAN(A1)

有人做了统计，牛逼了，这个图是转的