Cách sử dụng LEFT trong vba (1 người xem)

[ishikawangocthuy]

Xin chào các anh chị ah.
em muốn lấy giá trị của cột A trong pham vị là 12 kí tự thì
Em viết thế này bị sao chổ nào ah.

Range("A1:A13").value = Left(Range("A1:A13"), 12)

 

[ndu96081631]

Xin chào các anh chị ah.
em muốn lấy giá trị của cột A trong pham vị là 12 kí tự thì
Em viết thế này bị sao chổ nào ah.

Range("A1:A13").value = Left(Range("A1:A13"), 12)

Nếu phải làm bằng tay trên bảng tính thì bạn sẽ làm như thế nào?

 

[ishikawangocthuy]

sẽ tính trên từng ô ah
left(A2,2)

 

[phulien1902]

Bạn thử:

 Dim Ws As Worksheet, Cll As Range
    Set Ws = Sheet1
    For Each Cll In Ws.Range("a1:a" & Ws.Cells(Rows.Count, "a").End(3).Row)
        If Cll.Value <> "" Then Cll.Value = Left(Cll.Value, 12)
    Next Cll

 

[phulien1902]

----------------------

 

[ndu96081631]

sẽ tính trên từng ô ah
left(A2,2)

Vậy thì trong VBA bạn cũng làm y chang vậy đi, tức là từng ô đó

 

[ishikawangocthuy]

----------------------

d

Bạn thử:

Dim Ws As Worksheet, Cll As Range
    Set Ws = Sheet1
    For Each Cll In Ws.Range("a1:a" & Ws.Cells(Rows.Count, "a").End(3).Row)
        If Cll.Value <> "" Then Cll.Value = Left(Cll.Value, 12)
    Next Cll

da em cam on ah