Copy dữ liệu cách khoảng (1 người xem)

[huonglien1901]

Chào mọi người!

Em có vấn đề nhờ mọi người hỗ trợ.

Trong Sheet Data: ở cột A có chứa số và các ký tự

Yêu cầu: Em muốn từ vị trí số 1 đến số 2 thì copy dữ liệu (là các ký tự) qua ô B2 và ô B1 được đánh số là 1
Em muốn từ vị trí số 2 đến số 3 thì copy dữ liệu (là các ký tự) qua ô C2 và ô C1 được đánh số là 2
Em muốn từ vị trí số 3 đến số ...... thì copy dữ liệu (là các ký tự) qua ô D2 và ô D1 được đánh số là 3

Em cảm ơn mọi người nhiều!

 

[phulien1902]

Chào mọi người!

Em có vấn đề nhờ mọi người hỗ trợ.

Trong Sheet Data: ở cột A có chứa số và các ký tự

Yêu cầu: Em muốn từ vị trí số 1 đến số 2 thì copy dữ liệu (là các ký tự) qua ô B2 và ô B1 được đánh số là 1
Em muốn từ vị trí số 2 đến số 3 thì copy dữ liệu (là các ký tự) qua ô C2 và ô C1 được đánh số là 2
Em muốn từ vị trí số 3 đến số ...... thì copy dữ liệu (là các ký tự) qua ô D2 và ô D1 được đánh số là 3

Em cảm ơn mọi người nhiều!

Thử:

Sub abc()
    Dim a, i&
    Set a = Columns(1).SpecialCells(2).Areas
    For i = 1 To a.Count
        Cells(1, i + 1).Resize(a(i).Count).Value = a(i).Value
    Next
End Sub

 

[Lê Hồng Minh83]

Chào mọi người!

Em có vấn đề nhờ mọi người hỗ trợ.

Trong Sheet Data: ở cột A có chứa số và các ký tự

Yêu cầu: Em muốn từ vị trí số 1 đến số 2 thì copy dữ liệu (là các ký tự) qua ô B2 và ô B1 được đánh số là 1
Em muốn từ vị trí số 2 đến số 3 thì copy dữ liệu (là các ký tự) qua ô C2 và ô C1 được đánh số là 2
Em muốn từ vị trí số 3 đến số ...... thì copy dữ liệu (là các ký tự) qua ô D2 và ô D1 được đánh số là 3

Em cảm ơn mọi người nhiều!

Bạn tham khảo cái này xem sao

B2=IF(B1="","",IF(OFFSET($A$1,MATCH(B$1,$A$1:$A$39,0)+ROW()-2,0)=0,"",OFFSET($A$1,MATCH(B$1,$A$1:$A$39,0)+ROW()-2,0)))

 

[huonglien1901]

Thử:

Sub abc()
    Dim a, i&
    Set a = Columns(1).SpecialCells(2).Areas
    For i = 1 To a.Count
        Cells(1, i + 1).Resize(a(i).Count).Value = a(i).Value
    Next
End Sub

Anh ơi! Anh có thể giải thích giúp em dòng này với. Set a = Columns(1).SpecialCells(2).Areas
Em cảm ơn Anh!

 

[phulien1902]

Anh ơi! Anh có thể giải thích giúp em dòng này với. Set a = Columns(1).SpecialCells(2).Areas
Em cảm ơn Anh!

Để biết nó là gì, ta làm như sau:
1. Gõ Ctrl+G
2. Tại cửa sổ Immediate, nhập:

Columns(1).SpecialCells(2).select

Enter 1 phát
3.Quay lại bảng tính xem thế nào nhé.

 

[huonglien1901]

Để biết nó là gì, ta làm như sau:
1. Gõ Ctrl+G
2. Tại cửa sổ Immediate, nhập:

Columns(1).SpecialCells(2).select

Enter 1 phát
3.Quay lại bảng tính xem thế nào nhé.

giờ em đã hiểu, Em cảm ơn Anh nhiều! Em có thêm yêu cầu nhờ Anh hỗ trợ thêm.
Em cảm ơn Anh!

 

[phulien1902]

giờ em đã hiểu, Em cảm ơn Anh nhiều! Em có thêm yêu cầu nhờ Anh hỗ trợ thêm.
Em cảm ơn Anh!

Bạn muốn điều gì vậy?

 

[huonglien1901]

Bạn muốn điều gì vậy?

Ý em là với những dữ liệu trong cột A với những số 0,1 lặp lại thì vẫn lấy dữ liệu nhưng trên dòng thì vấn đếm là số +1 không phải là số 0 đó Anh, là những số tăng dần 1.2.3.4.5.....

 

[phulien1902]

Ý em là với những dữ liệu trong cột A với những số 0,1 lặp lại thì vẫn lấy dữ liệu nhưng trên dòng thì vấn đếm là số +1 không phải là số 0 đó Anh, là những số tăng dần 1.2.3.4.5.....

Bạn thử:

Sub abc2()
    Dim a, i&
    Set a = Columns(1).SpecialCells(2).Areas
    For i = 1 To a.Count
        Cells(1, i + 1).Resize(i).Value = i
        Cells(1, i + 1).Offset(1).Resize(a(i).Count).Value = a(i).Offset(1).Value
    Next
End Sub