Category: Uncategorized

  Sub CleanAttributeValue() Dim rng As Range Dim cell As Range Dim cleanedText As String Dim LastRow As Long Dim startPos As Long Dim endPos As Long ' Xac dinh dong cuoi cung trong cot("Attribute Value") LastRow = ThisWorkbook.Sheets("Sheet").Cells(ThisWorkbook.Sheets("Sheet").Rows.Count, "O").End(xlUp).Row Set rng = ThisWorkbook.Sheets("Sheet").Range("O2:O" & LastRow) ' Duy?t qua t?ng ô trong ph?m vi For Each cell In rng If Not IsEmpty(cell.Value) Then ' thay the ki tu " thanh inch" cleanedText = Replace(cell.Value, """", "inch") ' Xóa giá tr? …

  Ví dụ file excel của bạn bình thường sẽ có dạng thập phân và số là (,) và (.). Tuy nhiên 1 số file excel khi tải về thì nó lại có định dạng 6.233,90 trong khi bạn mong muốn nó phải hiển thị: 6,233.90. Cách làm chúng ta sẽ hay sử dụng sẽ là vào option và đổi lại phần hiển thị thập phân và number. Tuy nhiên trong 1 vài trường hợp sau khi thay đổi nó …