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

Liên hệ QC
T

thanhhoadaica

Thành viên mới
Tham gia
8/5/09
Bài viết
30
Được thích
1
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é!!!
 
Lần chỉnh sửa cuối:
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é!!!
Nhấp chuột vào đây để mở rộng...
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!!
 
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é!!!
Nhấp chuột vào đây để mở rộng...
Bạn đưa file lên nha!
 
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,…
 
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
 

File đính kèm

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,…
Nhấp chuột vào đây để mở rộng...
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
 
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,…
Nhấp chuột vào đây để mở rộng...
Tôi đã làm sẵn 1 file cho bạn, bạn coi sheet hướng dẫn
 

File đính kèm

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!!!!!!!!!!!!!!
 
Lần chỉnh sửa cuối:
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
Nhấp chuột vào đây để mở rộng...
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?
 
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
Nhấp chuột vào đây để mở rộng...
Sao mình sao chép lại code mà bị lỗi nhỉ. Hướng dẫn mình
 

File đính kèm

  • 20230116_090035.jpg
    20230116_090035.jpg
    132.8 KB · Đọc: 24
ptm0412 đã viết:
Thông báo lỗi là gì?
Nhấp chuột vào đây để mở rộng...
Vùng màu vàng bị lỗi lệnh
ptm0412 đã viết:
Thông báo lỗi là gì?
Nhấp chuột vào đây để mở rộng...
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 đã 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
Nhấp chuột vào đây để mở rộng...

ptm0412 đã viết:
ok và thanks cũng không lịch sự. Kể cả viết tắt dl
Nhấp chuột vào đây để mở rộng...
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
 
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
Nhấp chuột vào đây để mở rộng...
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
 
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
Nhấp chuột vào đây để mở rộng...
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 ạ
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

C
Trách nhiệm pháp lý của chi nhánh doanh nghiệp Việt Nam tại nước ngoài với Công ty tại Việt Nam
Trả lời
4
Đọc
129
cuongtri
C
GPE-Trợ Lý
[GPE] TALK SHOW HÀM QUERY - BÍ KÍP BIẾN DỮ LIỆU KHỔNG LỒ THÀNH THÔNG TIN HỮU ÍCH TRONG TÍCH TẮC
    • Thích
    • Yêu thích
Trả lời
5
Đọc
2K
Ha Manh-LD
Ha Manh-LD
huuthang_bd
Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro
    • Thích
    • Yêu thích
    • Chấp nhận
2 3
Trả lời
45
Đọc
14K
ngocthu90
ngocthu90
Uyên dương Hoya
Lỗi định dạng font chữ trong excel
Trả lời
3
Đọc
109
ptm0412
ptm0412
mucongnghenhat
lỗi đoạn văn bản bị đóng khung
Trả lời
1
Đọc
62
vietduc147258
V
T
  • Question Question
Xin code VBA trả về tên tài khoản theo điều kiện
    • Chấp nhận
Trả lời
12
Đọc
434
VetMini
V
HeSanbi
  • Question Question
VBA Nâng cao: Hướng dẫn tạo biểu thức tìm kiếm với Regular Expression
    • Thích
    • Yêu thích
Trả lời
8
Đọc
644
nguyendang95
N
ntnguyentam1907
Lấy bảng dữ liệu chứng khoán về excel
2
Trả lời
22
Đọc
3K
nguyendang95
N
PhanTuHuong
CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ
    • Thích
    • Cảm ơn
Trả lời
5
Đọc
766
hoangtuan.net
hoangtuan.net
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
14 15 16
Trả lời
305
Đọc
22K
pkt.bacdau
pkt.bacdau
HONGVY91
Đếm số lượng 2 cột và đếm không trùng
Trả lời
2
Đọc
131
hoangtuaotrang_hp_vn
H
hanhlx88
Nhờ giúp file Excel báo lỗi: Excel cannot complete this task with available resources
Trả lời
3
Đọc
189
hanhlx88
hanhlx88
HeSanbi
  • Đã giải quyết
LocalizeXL v1.73 - Làm nổi bật ô đang chọn và cuộn trang tự động
    • Thích
    • Yêu thích
2 3 4
Trả lời
73
Đọc
10K
HeSanbi
HeSanbi
L
Folder chứa chương trình bị khóa bởi Lock folder
2
Trả lời
28
Đọc
25K
qthangvphaui
Q
P
Xin trợ giúp cách lập lịch trực tịnh tiến dần cho 1 nhóm người.
Trả lời
4
Đọc
150
phambahoang
P
N
Tính tổng với điều kiện gần đúng
Trả lời
3
Đọc
78
HUONGHCKT
H
Bùi Thúy Thúy
  • Question Question
Lấy dữ liệu thời tiết Accuweather để điền vào nhật ký thi công
2 3 4
Trả lời
63
Đọc
19K
Mutants Men
M
Anxseo
  • Đã khóa
Cách crack my excel
Trả lời
1
Đọc
200
HeSanbi
HeSanbi
phatnguyen7301
  • Question Question
Tạo âm thanh khi nhấn vào một phím
Trả lời
5
Đọc
250
yaaasoo01
Y
anhtuan1066
  • Question Question
Chèn hình vào cell bằng hàm tự tạo
    • Thích
    • Ngạc nhiên
10 11 12
Trả lời
235
Đọc
106K
XaNguyen
X
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
Chúc mừng năm mới.
Back
Top Bottom