xin anh chị giúp em code copy nhân 2 dử liệu

[tranphuocthinh]

Em có dử liệu ở ô A2 và ô điều khiện ở ô B2 ,ô chạy code ở cột C và D
vd : em có dử liệu ở ô A2 là : NGUYỄN VĂN A
B2 là : 3
làm thế nào để code copy dữ liệu ở ô A2 dán lên cột C và dữ liệu được nhân 2 lần lên
xinh được giúp đở

 

[be_09]

Em có dử liệu ở ô A2 và ô điều khiện ở ô B2 ,ô chạy code ở cột C và D
vd : em có dử liệu ở ô A2 là : NGUYỄN VĂN A
B2 là : 3
làm thế nào để code copy dữ liệu ở ô A2 dán lên cột C và dữ liệu được nhân 2 lần lên
xinh được giúp đở

1/ Tiêu đề nên là "Giúp code Copy và Insert dòng theo số lượng cột B".
2/ Nên Copy dữ liệu sang sheet khác rồi thực hiện Insert dòng và Copy, chứ không ai thực hiện kế bên (nếu muốn thêm một số nội dung khác thì làm thế nào?????)..
3/ Insert dòng là dựa vào số lượng cột B, tự nhiên lại đi nhân 2 rồi mới Copy xuống thì sẽ làm cho công việc viết code phức tạp ra.

 

[CHAOQUAY]

Em có dử liệu ở ô A2 và ô điều khiện ở ô B2 ,ô chạy code ở cột C và D
vd : em có dử liệu ở ô A2 là : NGUYỄN VĂN A
B2 là : 3
làm thế nào để code copy dữ liệu ở ô A2 dán lên cột C và dữ liệu được nhân 2 lần lên
xinh được giúp đở

Sub Nhan2()
Dim Nguon
Dim Kq
Dim i, j, k, t
With Sheet1
    Nguon = .Range("A2", .Range("B1000000").End(xlUp))
    For i = 1 To UBound(Nguon)
        t = t + Nguon(i, 2) * 2
    Next i
    ReDim Kq(1 To t, 1 To 2)
    For i = 1 To UBound(Nguon)
        k = k + 1
        t = k + Nguon(i, 2) * 2 - 1
        For j = k To t
            Kq(j, 1) = Nguon(i, 1)
            Kq(j, 2) = j - k + 1
        Next j
        k = t
    Next i
    .Range("C2").Resize(UBound(Kq), UBound(Kq, 2)).ClearContents
    .Range("C2").Resize(UBound(Kq), UBound(Kq, 2)) = Kq
End With
End Sub

 

[tranphuocthinh]

1/ Tiêu đề nên là "Giúp code Copy và Insert dòng theo số lượng cột B".
2/ Nên Copy dữ liệu sang sheet khác rồi thực hiện Insert dòng và Copy, chứ không ai thực hiện kế bên (nếu muốn thêm một số nội dung khác thì làm thế nào?????)..
3/ Insert dòng là dựa vào số lượng cột B, tự nhiên lại đi nhân 2 rồi mới Copy xuống thì sẽ àm cho công việc viết code phức tạp ra.

da em cam ơn đã nhắt nhở

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

Sub Nhan2()
Dim Nguon
Dim Kq
Dim i, j, k, t
With Sheet1
    Nguon = .Range("A2", .Range("B1000000").End(xlUp))
    For i = 1 To UBound(Nguon)
        t = t + Nguon(i, 2) * 2
    Next i
    ReDim Kq(1 To t, 1 To 2)
    For i = 1 To UBound(Nguon)
        k = k + 1
        t = k + Nguon(i, 2) * 2 - 1
        For j = k To t
            Kq(j, 1) = Nguon(i, 1)
            Kq(j, 2) = j - k + 1
        Next j
        k = t
    Next i
    .Range("C2").Resize(UBound(Kq), UBound(Kq, 2)).ClearContents
    .Range("C2").Resize(UBound(Kq), UBound(Kq, 2)) = Kq
End With
End Sub

dạ em cam ơn đã giúp đở , đúng ý em rồi ạ

 

[VetMini]

...
2/ Nên Copy dữ liệu sang sheet khác rồi thực hiện Insert dòng và Copy, chứ không ai thực hiện kế bên (nếu muốn thêm một số nội dung khác thì làm thế nào?????).. {1}
3/ Insert dòng là dựa vào số lượng cột B, tự nhiên lại đi nhân 2 rồi mới Copy xuống thì sẽ àm cho công việc viết code phức tạp ra {2}.

{1} Bạn ở đây gần chục năm rồi mà còn đặt câu hỏi này à? Lại hỏi xin code tiếp chứ làm thế nào. Có mất xu nào đâu.
{2} Giải quyết sự phức tạp là công việc của người viết chứ đâu phải của người hỏi. Mục đích của người viết code chỉ là viết code chạy ra kết quả chứ không phải đơn giản hoá vấn đề. Càng phức tạp thì lại càng tạo hứng cho họ.

Ngày nào diễn đàn còn người sẵn sàng viết code thì tất cả những lời khuyên của bạn chỉ là nước đổ lá môn.
(tôi có cảm tưởng người viết code cố tình viết mà không cần hỏi lại rõ vấn đề - để được dịp viết đi viết lại nhiều lần)