Copy công thức dòng xen kẽ (1 người xem)

[tuanpmac]

Chào cả nhà
Em đang gặp vấn đề về copy công thức xen kẽ dòng, chi tiết em để trong file. Nhờ mọi người giúp đỡ ạ.

 

[tuanpmac]

.

 

[XuanThanh]

Xài VBA đi cho lẹ. Chép đoạn code sau vào của sổ VBE của sheet2 rồi chạy no1

Sub Chep()
    Dim n As Long, i As Long, j As Long
    Sheet1.Range("A3:A" & Sheet1.Range("A65000").End(xlUp).Row).ClearContents
    n = Sheet2.Range("A65000").End(xlUp).Row
    j = 6
    For i = 6 To n
        If Sheet2.Range("A" & i) <> 0 Then
            Sheet1.Range("A" & j) = Sheet2.Range("A" & i)
            Sheet1.Range("A" & j + 1) = Left(Sheet1.Range("A" & j), 8)
            Sheet1.Range("A" & j + 2) = Mid(Sheet1.Range("A" & j), 6, 9)
        End If
        j = j + 3
    Next
End Sub

 

[be_09]

Chào cả nhà
Em đang gặp vấn đề về copy công thức xen kẽ dòng, chi tiết em để trong file. Nhờ mọi người giúp đỡ ạ.

Không biết bạn dùng vào mục đích gì? Tôi thắc mắc tại sao không làm 3 cột rồi Fill xuống cho khỏe?

 

[Ba Tê]

Chào cả nhà
Em đang gặp vấn đề về copy công thức xen kẽ dòng, chi tiết em để trong file. Nhờ mọi người giúp đỡ ạ.

Dùng 1 cột phụ cho dễ hiểu, dễ làm.

 

[tuanpmac]

Xài VBA đi cho lẹ. Chép đoạn code sau vào của sổ VBE của sheet2 rồi chạy no1

Sub Chep()
    Dim n As Long, i As Long, j As Long
    Sheet1.Range("A3:A" & Sheet1.Range("A65000").End(xlUp).Row).ClearContents
    n = Sheet2.Range("A65000").End(xlUp).Row
    j = 6
    For i = 6 To n
        If Sheet2.Range("A" & i) <> 0 Then
            Sheet1.Range("A" & j) = Sheet2.Range("A" & i)
            Sheet1.Range("A" & j + 1) = Left(Sheet1.Range("A" & j), 8)
            Sheet1.Range("A" & j + 2) = Mid(Sheet1.Range("A" & j), 6, 9)
        End If
        j = j + 3
    Next
End Sub

Dạ Cảm ơn Anh nhiều ạ

Bài đã được tự động gộp: 22/11/19

Dùng 1 cột phụ cho dễ hiểu, dễ làm.

Dạ cảm ơn Anh đã giúp đỡ.

Bài đã được tự động gộp: 22/11/19

Không biết bạn dùng vào mục đích gì? Tôi thắc mắc tại sao không làm 3 cột rồi Fill xuống cho khỏe?

Em làm file tính công nợ theo mốc thời gian Anh ạ. 3 dòng đó là Tuần này, tuần trước với chênh lệch.