Lấy dữ liệu cách dòng (1 người xem)

[yoomi]

Nhờ các bạn làm giúp mình công thức , lấy dữ liệu cũ sang cột khác nhưng dữ liệu se cách dòng.
Các bạn xem file đính kèm giúp mình.

 

[quanluu]

Nhờ các bạn làm giúp mình công thức , lấy dữ liệu cũ sang cột khác nhưng dữ liệu se cách dòng.
Các bạn xem file đính kèm giúp mình.

Tôi làm như thế này. Tôi copy value (1-12) sang cột G2:G13 tại cột H tôi đánh H2-H13 là 1 đến 12. H14:H25 tôi lại đánh số từ 1 đến 12.
- Chọn G2 - H25--custom sort chọn sort theo cột H, giá trị từ nhỏ đến lớn. Đc kq thì xòa cột H đi.

 

[khuongvietphong]

Công thức này tại D2:

=if(isnumber(d1),"",offset($b$1,count($d$1:d1)+1,0))

Rồi Fill xuống ...

 

[yoomi]

Công thức này tại D2:

=if(isnumber(d1),"",offset($b$1,count($d$1:d1)+1,0))

Rồi Fill xuống ...

Nếu thay số bằng tên thì sao bạn nhỉ

 

[dhn46]

Một cách nữa

=IF(MOD(ROW(2:2),2)=0,OFFSET($B$1,INT(ROW(2:2)/2),0),"")

 

[lenongree]

=IF(MOD(ROW(),2)=0,INDIRECT("B"&ROW()/2+1),""), bạn thử công thức này ô D2 rồi fill xuống!!

 

[phulien1902]

Nhờ các bạn làm giúp mình công thức , lấy dữ liệu cũ sang cột khác nhưng dữ liệu se cách dòng.
Các bạn xem file đính kèm giúp mình.

Bạn tham khảo:

Option Explicit
Sub CopyCachdong()
    Dim i As Long
    Sheets(2).Activate
    Sheets(1).Range("B1:B100").Copy Sheets(2).Range("A1")
    For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        If Range("A" & i).Value <> "" Then
            Rows(i + 1).Insert
        End If
    Next i
    With Sheets(2)
        .Columns(1).Copy Sheets(1).Range("D1")
        .Columns(1).Delete
    End With
   Sheets(1).Activate
End Sub

 

[dhn46]

Bạn tham khảo:

Option Explicit
Sub CopyCachdong()
    Dim i As Long
    Sheets(2).Activate
    Sheets(1).Range("B1:B100").Copy Sheets(2).Range("A1")
    For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        If Range("A" & i).Value <> "" Then
            Rows(i + 1).Insert
        End If
    Next i
    With Sheets(2)
        .Columns(1).Copy Sheets(1).Range("D1")
        .Columns(1).Delete
    End With
   Sheets(1).Activate
End Sub

Nhấn nút thử xem bạn nhé

Cách này phải dùng 1 sheet phụ. Anh thử nghiên cứu làm trực tiếp trên sheet gốc và không chơi kiểu insert dòng xem sao.

Nếu dữ liệu có liên quan tới cột khác mà insert dòng là không ổn anh ạ.

 

[phulien1902]

Cách này phải dùng 1 sheet phụ. Anh thử nghiên cứu làm trực tiếp trên sheet gốc và không chơi kiểu insert dòng xem sao.

Nếu dữ liệu có liên quan tới cột khác mà insert dòng là không ổn anh ạ.

Cảm ơn em!
Vì anh biết chỉ có 1 cột duy nhất nên mới làm vậy. Để anh tìm hiểu.
Hôm nao rảnh mấy anh em đi uống Caffe nhé.

 

[it.huannv]

Nhờ mọi người làm giúp công thức copy dữ liệu này với. Thanks !

 

[HieuCD]

Nhờ mọi người làm giúp công thức copy dữ liệu này với. Thanks !

 D2 =OFFSET($B$1,ROW(A1)*2-(COLUMN()=5),)

copy ngang, xuống

G2 =OFFSET($D$1,INT(ROW(A2)/2),MOD(ROW(A1),2)=1)

copy xuống