zPeterPan
Thành viên hoạt động
- Tham gia
- 27/2/21
- Bài viết
- 154
- Được thích
- 10
Em nhờ các thấy cô và các anh chị trên diễn đàn giúp em đoạn code để tách chuỗi gồm 107 ký tự ra 107 ô trên 1 hàng trong sheet1( TachViTri) , và ghép lần lượt từ ký tự từ vị trí 1 đến vị trí 107 trong sheet2(GhepViTri), và khi nhập ngày tại .cell(C1) thì sẽ hiển thị dữ liệu tách trong sheet1(TachViTri).
đoạn code này em chạy thì không tách ra từ ký tự, Không biết sai hay thiếu ở chỗ nào ạ. . .
Chữ màu đỏ là em ví dụ ạ. . .
Em xin cảm ơn ạ. . .
đoạn code này em chạy thì không tách ra từ ký tự, Không biết sai hay thiếu ở chỗ nào ạ. . .
Mã:
Sub TachSo()
Dim str As String, i As Long, Col As Long
Dim x
With Sheet1
.Range("F3:EZ1000000").ClearContents
For i = 3 To 10000
str = Cells(i, 3)
x = Split(str, "")
For Col = 0 To UBound(x)
.Cells(i, Col + 5) = x(Col)
Next Col
Next i
End With
End SubChữ màu đỏ là em ví dụ ạ. . .
Em xin cảm ơn ạ. . .
Lần chỉnh sửa cuối:
