可以运行的,但我不知道你的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