[已解决]求刪除單元格內容第一個字符的宏

010203400

需要的過程如下：
1、選擇A列
2、刪除A列所有單無格中的第一個字符，不管是什么字符；【A列中有可能有空白單元格】

以上，請宏代碼。

最佳答案

月排行榜 / 总排行榜

xdragon

2013-9-11 16:59

1. Sub test()
   
2. Dim arr(), brr()
   
3. arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
   
4. ReDim brr(1 To UBound(arr), 1 To 1)
   
5. For i = 1 To UBound(arr)
   
6.   brr(i, 1) = Mid(arr(i, 1), 2)
   
7. Next
   
8. Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) = brr
   
9. End Sub

复制代码

跳转到最佳答案楼层

xdd_sky

使用right(A1,len(A1)-1)即可实现上述功能 宏代码也类似

我心飞翔410

替换也应该可以吧

xdragon

1. Sub test()
   
2. Dim arr(), brr()
   
3. arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
   
4. ReDim brr(1 To UBound(arr), 1 To 1)
   
5. For i = 1 To UBound(arr)
   
6.   brr(i, 1) = Mid(arr(i, 1), 2)
   
7. Next
   
8. Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) = brr
   
9. End Sub

复制代码