用VBA快速转换一列中的大小写英文字符

wcg129

由于工作需要，文档中的一列大量数据需要大写转换成小写，查阅了网上，在本站找到一个贴（http://club.excelhome.net/thread ... e0214e43c1803b75087），可以转换，但是速度比较慢，有没有高手能够提高速度的，谢谢！ 大小英文写字符转换.rar (13.34 KB, 下载次数: 13)

2019-8-17 17:33 上传

点击文件名下载附件

tutu501

把原贴那两个个过程做成自定义函数就好了

wcg129

tutu501 发表于 2019-8-17 17:37
把原贴那两个个过程做成自定义函数就好了

不懂自定义函数，能否帮忙一下，谢谢！

zhanghai0602

1. Sub test()
   
2.     Dim r&, c&, i&, j&
   
3.     Dim arr
   
4.     arr = Range("B2").CurrentRegion
   
5.     With Range("B2").CurrentRegion
   
6.         r = .Rows.Count
   
7.         c = .Columns.Count
   
8.     End With
   
9.     For i = 1 To r
   
10.         For j = 1 To c
    
11.             arr(i, j) = LCase(arr(i, j))
    
12.         Next
    
13.     Next
    
14.     Range("B2").CurrentRegion = arr
    
15. End Sub

复制代码

zhanghai0602

1. Sub test1()
   
2.     Dim i&
   
3.     Dim arr
   
4.     arr = Range("B2:B" & Range("B65535").End(xlUp).row)
   
5.     For i = 1 To UBound(arr)
   
6.         arr(i, 1) = LCase(arr(i, 1))
   
7.     Next
   
8.     Range("B2:B" & Range("B1048576").End(xlUp).row) = arr
   
9. End Sub

复制代码

  这是是只处理B列的，上一个是处理全文的

学无止境xu

Public Sub test()
Dim arr() As Variant, n As Integer, i As Integer
n = Range("b10000").End(xlUp).Offset(1, 0).Row - 1
arr() = Range("b2:b" & n)
For i = 2 To n Step 1
    Range("B" & i) = LCase(arr(i - 1, 1))
Next
End Sub

wcg129

学无止境xu 发表于 2019-8-17 22:12
Public Sub test()
Dim arr() As Variant, n As Integer, i As Integer
n = Range("b10000").End(xlUp).O ...

非常感谢帮助！

tspliu

自带的函数 LOWER UPPER 不好用吗

wcg129

zhanghai0602 发表于 2019-8-17 18:58
这是是只处理B列的，上一个是处理全文的

非常感谢帮助！

wcg129

tspliu 发表于 2019-8-18 10:57
自带的函数 LOWER UPPER 不好用吗

几万条数据公式下拉也麻烦 的，谢谢！