求VBA代码，excel，A列除了A1单元格，其他单元格输入任何字母，都自动转换成大写字母。

Question

如题所述

Answer 1

如上图所示

请先Alt+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