lấy bốn ký từ đầu bằng vba (1 người xem)

[cachabu]

em có bài này
nội dung muốn lấy 4 ký tự đầu tiên của cột D vào cột E sau đó copy cột E vào cột D và xóa cột E đi

cám ơn

 

[Quang_Hải]

em có bài này
nội dung muốn lấy 4 ký tự đầu tiên của cột D vào cột E sau đó copy cột E vào cột D và xóa cột E đi

cám ơn

Thử vầy coi sao

Sub abc()
With Range([D3], [D65536].End(3))
   .Offset(, 1).FormulaR1C1 = "=left(RC[-1],4)"
   .Offset(, 1).Value = .Offset(, 1).Value
   .Value = ""
End With
End Sub

Khó hơn chút thì vầy

Sub abcd()
Dim data(), i, rng As Range
Set rng = Range([D3], [D65536].End(3))
data = rng.Value: rng.ClearContents
For i = 1 To UBound(data)
   data(i, 1) = Left(data(i, 1), 4)
Next
rng.Offset(, 1) = data
End Sub

 

[nghiaphuc]

em có bài này
nội dung muốn lấy 4 ký tự đầu tiên của cột D vào cột E sau đó copy cột E vào cột D và xóa cột E đi

cám ơn

Nếu chỉ là lấy 4 ký tự đầu tiên trên cột D thì cần gì đến cột E. Code thế này chẳng hạn:
[GPECODE=vb]Sub Test()
Dim Cll As Range
For Each Cll In Sheets("Sheet1").[D310]
Cll = Left(Cll, 4)
Next
End Sub[/GPECODE]

 

[cachabu]

Nếu chỉ là lấy 4 ký tự đầu tiên trên cột D thì cần gì đến cột E. Code thế này chẳng hạn:
[GPECODE=vb]Sub Test()
Dim Cll As Range
For Each Cll In Sheets("Sheet1").[D310]
Cll = Left(Cll, 4)
Next
End Sub[/GPECODE]

code nay thi đúng yêu cầu nhưng mà chậm quá mấy code trên kia thì nhanh hơn , nhưng lại hiểu sai vấn đề 1 tí

các bác có code nào ra đúng yêu cầu như code này mà tốc độ nhanh hơn không?

 

[thangteotdtt]

em có bài này
nội dung muốn lấy 4 ký tự đầu tiên của cột D vào cột E sau đó copy cột E vào cột D và xóa cột E đi

cám ơn

Góp vui thêm với bạn

Sub VD()
Dim x As Range
For Each x In Range("D310")
x.Value = Left(x, 4)
Next
End Sub