作者：乔山办公网日期：
返回目录：excel表格制作
1、如图，在A列有一zhidao列小写字母的单词，把它们都换成大写字母。只要在B1单元格输入“＝upper(a1)”
2、回车后，就把A1单元格的小写字母都变为了大写内
3、光标移到B1单元格左下角，光容标变为黑十字后向下拖动，小写全变为大写了
如上图所示
请先zhidaoAlt+F11打开VBA窗口，再把下面代码复制 到 ThisWorkBook 模块回中(先双击双击左答边的ThisWorkBook）
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim A As String
A = Replace(Target.Address, "$", "")
If A Like "A?" Then
If A <> "A1" Then Target = UCase(Target)
End If
End Sub
工具/材料：Microsoft Office Excel2007版，Excel表格百。
1、首先双击打开Excel表格。
2、其次在该度窗口上，选中工作表，右键点击“查看代知码”选项。
3、接着在VBA窗口中，输入小写字母转大道写内字母的代码“Private Sub test() Dim str = "abcd" MsgBox (UCase(str)) End Sub”。
4、其次在VBA窗口中，点击工具栏里的三角容形图标。
5、最后在该窗口上，成功显示小写字母转大写字母。
可以运行的，但我不百知道度你的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