韩国bj视讯:EXCEL文件中一次性把里面所有数字前的空格去掉 - 李逍遥的日志 - 网易博客

来源：百度文库编辑：偶看新闻时间：2024/04/28 20:10:48

Sub aTest()
    Dim s As String
    Dim a As Byte
    Dim x1 As Integer
    Dim rng As Range
    Dim c

    x1 = Sheets("sheet1").[d65536].End(xlUp).Row '取得D行最后一个非空行
    Set rng = Sheets("sheet1").Cells(1, 4).Resize(x1, 6)  '设定范围
    For Each c In rng '在选定的范围循环
        a = Asc(Mid(c.Value, 1, 1)) '取单元格字符串的第一个字符
        If a < 48 Or a > 57 Then '判断是否为数字，（Ascii码 0=48 ，9=57）
            a = Len(c.Value) '如果不是数字，取单元格字符长度
            c.Value = Mid(c.Value, 2, a - 1) '去掉第一个非数字字符
        End If
    Next c
End Sub  B(1)=trim(A(1)),删掉前导空格

大家在处理Excel表格时,经常会碰到一个问题,就是发现有多出来的格空.

当然,如果有种情况是所有的空格都是多出来的,这种情况非常好办,直接将空格替换为空就OK了.但是有的时候如果只是一部分空格是多出来的,比如说仅仅只是前面,后面或者前后的空格是多余的,中间的空格是有用的,那么就不能用替换的方法的.

如果这种情况只是几个,那没关系,可以手工来做.如果是一列,两列,N列…..那怎么办呢?这个时间就要用到很重要的一个函数”Trim“

Trim:去除单元格两端的空格

RTrim:去除单元格右端的空格

LTrim:去除单元格左端的空格

函数使用方法：

=Trim(“test”)

比如要去列A列中的两端空格，首先在X列中打入函数”=Trim(“,然后点击A列中对应的单元格，然后再加个“）”回车，好的，这样X列中就有了A列中对应单元格数据的去掉空格后的数据。然后双击X列中改好的那个单元格右下角，A列中数据全部更改过来。

RTrim、LTrim函数用法同上！

请问如何一次性的把不同目录下的所有文件移动到同一个文件夹里面有谁能告诉我怎么在excel表的数据中用户替找的行式把所有的数字前加上0716 怎样在EXCEL中把表中出现的所有数字除以2？家里的电脑里面没有用的网络游戏太多`想把它们都删掉``可是怎样才能一次性把这个游戏的所有文件都删除掉呢 excel中，如何一次性将所有的行按照行排序？在excel里面如何可以把含有某个字的词语都一次性查找出来怎么样把excel里面的数据导出到txt文件中？急！在Excel中如何才能把所有数字原原本本地显示出来？ word中怎样一次性把文章中所有的空行去掉 Excel中数字的问题 excel中，如何把所有的数据扩大一百倍？谁能把知道中所有数字的名字汇总？？？ EXCEL中如何把已转换成文本的数字，再转换为数字在excel中，输入前两个数字后，怎样能自动算出剩出的结果 EXCEL里面的图片为什么一次性复制不下来呢? 在Excel中A列里的所有数字*20%计算到B列相对应 excel里面数字计算的问题在excel里面怎么把一个特殊符号设置成一个数字的上标？ excel里面有没有能把文本转化为数字的函数？？/ 客户发了一个CD文件.一个文件里面有近200个页面,我怎么样才可以一次性把所有页面全部导到一个页面里? 怎样把Excel两个单元格的数据一次性连接在一起？在 Excel 2003中怎么弄才能一次找到里面相同的数字啊？？？？在excel中，当一个单元格中有若干个数字，怎样把这些数字方便快捷地放到若干个单元格里面？在excel里面要怎么样实现所有的表格里的数字同时加一个数的快速操作呢？？？