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
