可以运行的，但我不知道你的EXCEL版本，因为你获取的是行固定，列变量。 有些excel版本是没有380列的。
Sub 按钮1_Click()
Dim n As Integer, m
For n = 2 To 380
m = Sheet3.Cells(4, n) 'cells(行，列）
Sheet3.Cells(5, n) = LCase(m)'cells(行，列）
Next
End Sub
用大小写转换函数
For n = 2 To 380
Sheet3.Cells(5, n) = LCase(Sheet3.Cells(5, n) )
Nex
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024