Tự động nhân bản thêm dòng (copy thêm dòng) theo số chỉ định (1 người xem)

thanhhoadaica · 24/11/14

Xin chào diễn đàn GPE!!!
Mình đang tìm hiểu về excel, hiện tại mình đang muốn dùng excel để nhân bản thêm dòng theo số lượng được chỉ định như minh họa bên dưới:

[TABLE="width: 200, align: left"]
[TR]
[TD]062GW2-BLACK[/TD]
[TD]2[/TD]
[/TR]
[TR]
[TD]19X231-SILVER[/TD]
[TD]2[/TD]
[/TR]
[TR]
[TD]5J8DW1-GREY[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]DND6X3-BLACK[/TD]
[TD]2[/TD]
[/TR]
[TR]
[TD]DND6X7-BLACK[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]NX.MCJSV.002[/TD]
[TD]2[/TD]
[/TR]
[/TABLE]

[TABLE="width: 205"]
[TR]
[TD]062GW2-BLACK[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]062GW2-BLACK[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]19X231-SILVER[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]19X231-SILVER[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]5J8DW1-GREY[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]DND6X3-BLACK[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]DND6X3-BLACK[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]DND6X7-BLACK[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]NX.MCJSV.002[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]NX.MCJSV.002[/TD]
[TD]1[/TD]
[/TR]
[/TABLE]

Rất mong các bạn tư vấn giúp mình nhé!!!

vu_tuan_manh_linh · 24/11/14

thanhhoadaica đã viết:
Xin chào diễn đàn GPE!!!
Mình đang tìm hiểu về excel, hiện tại mình đang muốn dùng excel để nhân bản thêm dòng theo số lượng được chỉ định như minh họa bên dưới:
Rất mong các bạn tư vấn giúp mình nhé!!!

Bạn muốn thêm dòng vào bảng dữ liệu đã có sẵn, hay thêm vào khi nhập thêm dòng dữ liệu mới!!

Hong.Van · 24/11/14

thanhhoadaica đã viết:
Xin chào diễn đàn GPE!!!
Mình đang tìm hiểu về excel, hiện tại mình đang muốn dùng excel để nhân bản thêm dòng theo số lượng được chỉ định như minh họa bên dưới:

[TABLE="width: 200, align: left"]
[TR]
[TD]062GW2-BLACK[/TD]
[TD]2[/TD]
[/TR]
[TR]
[TD]19X231-SILVER[/TD]
[TD]2[/TD]
[/TR]
[TR]
[TD]5J8DW1-GREY[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]DND6X3-BLACK[/TD]
[TD]2[/TD]
[/TR]
[TR]
[TD]DND6X7-BLACK[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]NX.MCJSV.002[/TD]
[TD]2[/TD]
[/TR]
[/TABLE]

[TABLE="width: 205"]
[TR]
[TD]062GW2-BLACK[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]062GW2-BLACK[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]19X231-SILVER[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]19X231-SILVER[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]5J8DW1-GREY[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]DND6X3-BLACK[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]DND6X3-BLACK[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]DND6X7-BLACK[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]NX.MCJSV.002[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]NX.MCJSV.002[/TD]
[TD]1[/TD]
[/TR]
[/TABLE]

Rất mong các bạn tư vấn giúp mình nhé!!!

Bạn đưa file lên nha!

thanhhoadaica · 24/11/14

Mình xuất ra từ hệ thống phần mềm có 2 cột
Cột 1: mã hàng
Cột 2: số lượng
Mình muốn excel sẽ tự động nhân bản thêm ví dụ: 2 dòng có thông tin mã hàng giống nhau nếu cột số lượng có số 2 hoặc nếu cột số lượng là số 3 thì sẽ có 3 dòng mã hàng giống nhau,…

thanhhoadaica · 24/11/14

Bạn ơi, mình dùng chức năng "Tải File Từ Máy" phải k? Mình up lên bạn xem giúp nhé, Thanks bạn

Quang_Hải · 24/11/14

thanhhoadaica đã viết:
Mình xuất ra từ hệ thống phần mềm có 2 cột
Cột 1: mã hàng
Cột 2: số lượng
Mình muốn excel sẽ tự động nhân bản thêm ví dụ: 2 dòng có thông tin mã hàng giống nhau nếu cột số lượng có số 2 hoặc nếu cột số lượng là số 3 thì sẽ có 3 dòng mã hàng giống nhau,…

Công thức thì mình hỏng biết nhưng nếu dùng VBA thì code khỏi cần test

PHP:

Sub RowInsert()
Dim Data(), Res(1 To 65536, 1 To 2), i, j, k
Data = Range([A1], [B65536].End(3)).Value
For i = 1 To UBound(Data)
   For j = 1 To Data(i, 2)
      k = k + 1
      Res(k, 1) = Data(i, 1)
      Res(k, 2) = 1
   Next
Next
[C1].Resize(k, 2) = Res
End Sub

Hong.Van · 24/11/14

thanhhoadaica đã viết:
Mình xuất ra từ hệ thống phần mềm có 2 cột
Cột 1: mã hàng
Cột 2: số lượng
Mình muốn excel sẽ tự động nhân bản thêm ví dụ: 2 dòng có thông tin mã hàng giống nhau nếu cột số lượng có số 2 hoặc nếu cột số lượng là số 3 thì sẽ có 3 dòng mã hàng giống nhau,…

Tôi đã làm sẵn 1 file cho bạn, bạn coi sheet hướng dẫn

thanhhoadaica · 26/11/14

Dạ cảm ơn anh quanghai1969, em xin xác nhận là cách của anh nhẹ nhàng mà hiệu quả, giống như mổ nội soi vậy!!!!!!!!!!!!!!

buivanquanga3 · 9/2/18

quanghai1969 đã viết:
Công thức thì mình hỏng biết nhưng nếu dùng VBA thì code khỏi cần test

PHP:

Sub RowInsert() Dim Data(), Res(1 To 65536, 1 To 2), i, j, k Data = Range([A1], [B65536].End(3)).Value For i = 1 To UBound(Data) For j = 1 To Data(i, 2) k = k + 1 Res(k, 1) = Data(i, 1) Res(k, 2) = 1 Next Next [C1].Resize(k, 2) = Res End Sub

Bác có thể sửa cho em VBA nó ở đằng trước những dòng cần cóp có thêm những cột dữ liệu, thông tin như ngày tháng, kho hàng, và sau khi cop thì nó cũng cop luôn cả mấy dòng này không?

Thangvmbdl · 16/1/23

Quang_Hải đã viết:
Công thức thì mình hỏng biết nhưng nếu dùng VBA thì code khỏi cần test

PHP:

Sub RowInsert() Dim Data(), Res(1 To 65536, 1 To 2), i, j, k Data = Range([A1], [B65536].End(3)).Value For i = 1 To UBound(Data) For j = 1 To Data(i, 2) k = k + 1 Res(k, 1) = Data(i, 1) Res(k, 2) = 1 Next Next [C1].Resize(k, 2) = Res End Sub

Sao mình sao chép lại code mà bị lỗi nhỉ. Hướng dẫn mình

ptm0412 · 16/1/23

Thangvmbdl đã viết:
Sao mình sao chép lại code mà bị lỗi nhỉ. Hướng dẫn mình

Thông báo lỗi là gì?

Thangvmbdl · 16/1/23

ptm0412 đã viết:
Thông báo lỗi là gì?

Vùng màu vàng bị lỗi lệnh

ptm0412 đã viết:
Thông báo lỗi là gì?

Mã:

Sub RowInsert()
Dim Data(), Res(1 To 65536, 1 To 2), i, j, k
Data = Range([A1], [B65536].End(3)).Value
For i = 1 To UBound(Data)
   For j = 1 To Data(i, 2) =>lệnh này ko chạy vba tô vàng
      k = k + 1
      Res(k, 1) = Data(i, 1)
      Res(k, 2) = 1
   Next
Next
[C1].Resize(k, 2) = Res
End Sub

ptm0412 · 16/1/23

Thangvmbdl đã viết:
Vùng màu vàng bị lỗi lệnh

Câu lệnh bị tô vàng thì tôi thấy từ hình bài trên rồi, không đến nỗi đui mù gì. Tôi hỏi thông báo lỗi, thế bạn có biết "thông báo lỗi" là gì không?

Thangvmbdl · 16/1/23

ptm0412 đã viết:
Câu lệnh bị tô vàng thì tôi thấy từ hình bài trên rồi, không đến nỗi đui mù gì. Tôi hỏi thông báo lỗi, thế bạn có biết "thông báo lỗi" là gì không?

Không chạy lỗi type mismatch

ptm0412 · 16/1/23

Thangvmbdl đã viết:
Không chạy lỗi type mismatch

Bạn nói chuyện nên có xưng hô, câu có chủ ngữ vị ngữ cho lịch sự. Lỗi type mismatch do dòng đầu tiên của dữ liệu ở cột B không phải là số.

Thangvmbdl · 16/1/23

ptm0412 đã viết:
Bạn nói chuyện nên có xưng hô, câu có chủ ngữ vị ngữ cho lịch sự. Lỗi type mismatch do dòng đầu tiên của dữ liệu ở cột B không phải là số.

Ok. Thanks bạn. Tôi sẽ xem lại dl.

ptm0412 · 16/1/23

Thangvmbdl đã viết:
Ok. Thanks bạn. Tôi sẽ xem lại dl.

ok và thanks cũng không lịch sự. Kể cả viết tắt dl

Thangvmbdl · 16/1/23

ptm0412 đã viết:
Giờ em muốn mở rộng dữ liệu gồm 20 cột sau cột A. Vậy cần sửa code như nào nhờ anh hướng dẫn em với. Em Cảm ơn nhiều

ptm0412 đã viết:
ok và thanks cũng không lịch sự. Kể cả viết tắt dl

Giờ em muốn mở rộng dữ liệu gồm 20 cột sau cột A. Vậy cần sửa code như nào nhờ anh hướng dẫn em với. Em Cảm ơn nhiều

ptm0412 · 16/1/23

Thangvmbdl đã viết:
Giờ em muốn mở rộng dữ liệu gồm 20 cột sau cột A. Vậy cần sửa code như nào nhờ anh hướng dẫn em với. Em Cảm ơn nhiều

Bạn sửa thành:

Mã:

Data = Range([A1], [B65536].End(3)).Resize( ,20).Value
For i = 1 To UBound(Data)
   For j = 1 To Data(i, 2)
      k = k + 1
        For m = 1 to 20
            Res(k, m) = Data(i, m)
        Next
   Next
Next
[Z1].Resize(k, 20) = Res

Thangvmbdl · 16/1/23

ptm0412 đã viết:

Bạn sửa thành:

Mã:

Data = Range([A1], [B65536].End(3)).Resize( ,20).Value
For i = 1 To UBound(Data)
   For j = 1 To Data(i, 2)
      k = k + 1
        For m = 1 to 20
            Res(k, m) = Data(i, m)
        Next
   Next
Next
[Z1].Resize(k, 20) = Res

E vừa thử code mới thấy báo lỗi Subscrip out of range. Vậy sửa như nào tiếp nhờ anh chỉ giùm ạ

ptm0412 · 16/1/23

Thangvmbdl đã viết:
E vừa thử code mới thấy báo lỗi Subscrip out of range. Vậy sửa như nào tiếp nhờ anh chỉ giùm ạ

Còn phải sửa chỗ này

Res(1 To 65536, 1 To 2)
Sửa thế nào thì bạn thử suy nghĩ 1 lần xem sao?

Thangvmbdl · 16/1/23

Thangvmbdl đã viết:
E vừa thử code mới thấy báo lỗi Subscrip out of range. Vậy sửa như nào tiếp nhờ anh chỉ giùm ạ

Ví dụ để anh hiểu rõ hơn: em có 8 do

ptm0412 đã viết:
Còn phải sửa chỗ này

Res(1 To 65536, 1 To 2)
Sửa thế nào thì bạn thử suy nghĩ 1 lần xem sao?

E với tập học code vba nên chưa biết sửa. Mong anh sửa giúp.
E thấy đây mới chỉ nhân bản ô dữ liệu chứ chưa thấy nhân bản cả dòng dữ liệu. Vậy có cách nào nhân bản cả dòng dữ liệu không chỉ em với nhé.

ptm0412 · 16/1/23

Thangvmbdl đã viết:
E với tập học code vba nên chưa biết sửa. Mong anh sửa giúp.
E thấy đây mới chỉ nhân bản ô dữ liệu chứ chưa thấy nhân bản cả dòng dữ liệu. Vậy có cách nào nhân bản cả dòng dữ liệu không chỉ em với nhé.

Code mới đó đã là nhân bản cả dòng dữ liệu rồi, từ 2 cột thành 20 cột.
Sửa thế nào thì bạn thử xem từ 2 lên 20 tôi đã sửa những gì, chỗ nào có vẻ giống giống ... Nghĩ và phải đối chiếu nữa.
Khi nào nghĩ 1 tiếng không ra thì tôi chỉ, chứ chưa nghĩ được 5 phút ...

VetMini · 16/1/23

ptm0412 đã viết:
Code mới đó đã là nhân bản cả dòng dữ liệu rồi, từ 2 cột thành 20 cột.
Sửa thế nào thì bạn thử xem từ 2 lên 20 tôi đã sửa những gì, chỗ nào có vẻ giống giống ... Nghĩ và phải đối chiếu nữa.
Khi nào nghĩ 1 tiếng không ra thì tôi chỉ, chứ chưa nghĩ được 5 phút ...

Tôi đã nói bao nhiêu lần, và lần này lặp lại cũng khong thể thay đổi:
Những người hay viết tắt đồng thời cũng có tật hờ hững và làm việc gì cũng theo kiểu "quấy quá cho qua".

cantl · 16/1/23

Thiếu hiểu biết + nhiệt tình + bệnh ngoài da (ngứa tay) + khả năng có hạn thì nó thế lày:
- Dòng đầu tiên của dữ liệu phải là tiêu đề, SẼ KHÔNG NHÂN BẢN.
- 22: tổng số cột từ đầu đến đít = 20+2 (2 cột A, B).
- Res(k, 2) = 1: nếu muốn SL nhân bản đều = 1, còn nếu xóa dòng này thì SL y như đầu. Mà tốt nhất xóa đi, sau gõ 1 và copy xuống.
- [a2]: sau khi nhân bản sẽ thay thế dữ liệu cũ. NÊN SAO LƯU 5, 7 FILE TRƯỚC KHI THỬ.

Mã:

Sub RowInsert()
Dim Data(), Res(1 To 65536, 1 To 22), i, j, k
Data = Range([A1], [B65536].End(3)).Resize(, 22).Value
For i = 2 To UBound(Data)
   For j = 1 To Data(i, 2)
      k = k + 1
        For m = 1 To 22
            Res(k, m) = Data(i, m)
            Res(k, 2) = 1
        Next
   Next
Next
[a2].Resize(k, 22) = Res
End Sub

ptm0412 · 16/1/23

cantl đã viết:
- [a2]: sau khi nhân bản sẽ thay thế dữ liệu cũ. NÊN SAO LƯU 5, 7 FILE TRƯỚC KHI THỬ.

Trong tất cả các trường hợp, không ghi đè dữ liệu gốc.

Thangvmbdl · 17/1/23

Thangvmbdl đã viết:
Ví dụ để anh hiểu rõ hơn: em có 8 do

E với tập học code vba nên chưa biết sửa. Mong anh sửa giúp.
E thấy đây mới chỉ nhân bản ô dữ liệu chứ chưa thấy nhân bản cả dòng dữ liệu. Vậy có cách nào nhân bản cả dòng dữ liệu không chỉ em với nhé.

E cảm ơn. E sửa 1 to 2 thành 1 to 20 không biết đúng không anh thấy chạy được. Nếu dòng tiêu đề các cột là dạng text thì sửa như thế nào anh ơi.

ptm0412 · 17/1/23

Thangvmbdl đã viết:
E cảm ơn. E sửa 1 to 2 thành 1 to 20 không biết đúng không anh thấy chạy được. Nếu dòng tiêu đề các cột là dạng text thì sửa như thế nào anh ơi.

Thấy chạy được, nhưng kết quả có được không? Nghĩa là đã sao chép đủ 20 cột?
Nếu tiêu đề là dòng 1, dữ liệu bắt đầu từ dòng 2 (hoặc dòng bất kỳ) thì sửa chỗ này

Code gốc:
Data = Range([A1], [B65536].End(3)).Resize(, 20).Value

Sửa thế nào thì lại suy nghĩ nhé. Phát huy việc suy nghĩ biến 2 thành 20.

Thangvmbdl · 17/1/23

ptm0412 đã viết:
Trong tất cả các trường hợp, không ghi đè dữ liệu gốc.

E cảm ơn ý kiến bổ sung của anh

Tự động nhân bản thêm dòng (copy thêm dòng) theo số chỉ định (1 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

linhvtm84@gmail.com

Busy

Thành viên mới

Thành viên mới

File đính kèm

Thành viên gạo cội

Busy

File đính kèm

Thành viên mới

Thành viên mới

Thành viên mới

File đính kèm

Bad Excel Member

Thành viên mới

Bad Excel Member

Thành viên mới

Bad Excel Member

Thành viên mới

Bad Excel Member

Thành viên mới

Bad Excel Member

Thành viên mới

Bad Excel Member

Thành viên mới

Bad Excel Member

Đang đi tìm hòn đá

!!! Giải thoát !!!

Bad Excel Member

Thành viên mới

Bad Excel Member

Thành viên mới

Thời gian đếm ngược.