ĐỂ THAY THẾ TỪ CHỮ HOA SANG CHỮ THƯỜNG MÀ KHÔNG THAY ĐỔI VỊ TRÍ CỦ...

41. Để thay thế từ chữ hoa sang chữ thường mà không thay đổi vị trí của các ô kí tự , bạn phải sử dụng Macro . Sub MakeLower() Dim rngSrc As Range Dim lMax As Long, lCtr As Long Set rngSrc = ActiveSheet.Range(ActiveWindow.Selection.Address) lMax = rngSrc.Cells.Count For lCtr = 1 To lMax If Not rngSrc.Cells(lCtr).HasFormula Then rngSrc.Cells(lCtr) = LCase(rngSrc.Cells(lCtr)) End If Next lCtr End Sub