EXCEL VBA宏的一个问题

不需要宏吧

=LOWER(SUBSTITUTE(A1,"-",""))

下拉复制公式——复制B列数据——右键A1——选择性粘贴——数值。替换掉原数据，删除B列即可。

1. 　　不用VBA也可以完成。

2. 首先把大写字母转换成小写字母：你在B1单元格输入下面函数：=LOWER(A1)，然后下拉

3. 在B列得出的结果后，然后将最后一个数字去掉用下面的函数，在C1单元格输入下面的函数：

   =LEFT(B1,LEN(B1)-1)   这样最后一个数字就去掉了

4. 最后将“”-“”去掉。点击数据，选择分列，然后选择分隔符号，下一步，选择其他。在后面输入分隔符，就是你要去掉的符号，然后点击下一步，完成。这样就将数据分成3个部分了

5. 最后将数据合并起来就可以了，就是简单是用&字符连接起来就OK了

我放个vba吧

Sub ttt()
mrow = Range("a65536").End(xlUp).Row
arr = Range("a1:a" & mrow)
For i = 1 To mrow
    arr(i, 1) = Replace(LCase(arr(i, 1)), "-", "")
    arr(i, 1) = Mid(arr(i, 1), 1, Len(arr(i, 1)) - 1)
Next
Range("a1:a" & mrow) = arr
End Sub