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

Công thức : =UPPER(text)

Bước 1: 

Nhập công thức ở ô cần điền.

Bước 2 :

Nhấn Enter => bạn sẽ thấy toàn bộ chữ viết được chuyển từ thường sang chữ hoa.

 Bước 3 :

Bạn copy ô mà đã nhập xong kéo xuống và sẽ thấy tất cả đã được chuyển sang chữ hoa.