làm sao để đổi tất cả thành chữ hoa trong excel

Bạn cần cắt dán theo các cách sau:

Bước dán 1: Sub MakeUpper()

Bước dán 2: Dim MyText As String

Bước dán 3: Dim MyRange As Range

Bước dán 4: Dim CellCount As Integer

Bướcdán5: Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)

Bước dán 6: For CellCount = 1 To MyRange.Cells.Count

Bước dán 7: If Not MyRange.Cells(CellCount).HasFormula Then

Bước dán 8: MyText = MyRange.Cells(CellCount).Value

Bước dán 9: MyRange.Cells(CellCount).Value = UCase(MyText)

Bước dán 10: End If

Bước dán 11: Next CellCount

Bước dán 12: End Sub