Code VBa xuất dữ liệu theo số dòng Quy định (1 người xem)

Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Tôi tuân thủ nội quy khi đăng bài
Có
V

Văn Toàn 1996

Thành viên bị đình chỉ hoạt động
Thành viên bị đình chỉ hoạt động
Tham gia
5/6/23
Bài viết
106
Được thích
19
Chào tất cả các bạn. Tôi cần 1 đoạn code xuất dữ liệu như sau. Vùng dữ liệu của tôi là A1:D100000 tôi muốn cứ cách 5 dòng xuất ra vùng cột G
cụ thể các dòng (1,6,11,16...). Xin chân thành cảm ơn

1689660655025.png
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn

File đính kèm

  • BUOC NHAY.PNG
    BUOC NHAY.PNG
    178.1 KB · Đọc: 51
Upvote 0
tieutuvodanh192 đã viết:
Cái này thì cần gì VBA bạn.
G1 = 1
G2 = G1 + 5
Tương tự kéo công thức cột G xuống
Mấy giá trị bên cạnh thì bạn dùng hàm Vlookup hoặc Index + Match sang là được.
Nhấp chuột vào đây để mở rộng...
Bài này dễ nên có nhiều cách, tuy nhiên sử dụng filter để copy qua mới là thú vị :D
 
Upvote 0
Bài này hồi xưa mình mới học Excel hay dùng cách này
F1 cho nó = 1
F2 =F1+5 rồi kéo từ F2 xuống dưới

G1="tên của mình" & "G" & F1
Ví dụ

="Văn Toàn 1996" & "G" & F1

Sau đó kéo công thức từ G1 xuông dưới

Cuối cùng
Copy cột G rồi paste lại cột G kiểu paste 123 cho nó thành giá trị
Chọn nguyên cột G, bấm CTRL +H
Chỗ Find what: điền vào: Văn Toàn 1996
Chỗ Replace with: điền vào: =
 
Upvote 0
Nhattanktnn đã viết:
Bạn thử xem sao đã, kiếm thú vui hihi
Nhấp chuột vào đây để mở rộng...
Nếu filter theo màu vàng rồi copy thì chắc em làm được, còn viết công thức với filter thì em không có tí ý tưởng gì anh ạ :D
Với bài này thì em sử dụng hàm Xlookup là tối ưu nhất trong khả năng.
 
Upvote 0
Nhattanktnn đã viết:
Bài này dễ nên có nhiều cách, tuy nhiên sử dụng filter để copy qua mới là thú vị :D
Nhấp chuột vào đây để mở rộng...
Nhiều cái mốc xì gì bạn.
Thớt đã biết mánh GPE từ đầu rồi: Muốn vòi code cho dễ thì cứ việc thêm chi tiết dữ liệu khủng hằng trăm ngàn dòng.
 
Upvote 0
tieutuvodanh192 đã viết:
Nếu filter theo màu vàng rồi copy thì chắc em làm được, còn viết công thức với filter thì em không có tí ý tưởng gì anh ạ :D
Với bài này thì em sử dụng hàm Xlookup là tối ưu nhất trong khả năng.
Nhấp chuột vào đây để mở rộng...
Mình có nói công thức đâu, bước 1 thì filter cột stt bằng "*1" -> OK. Bước 2 thì filter "*6" tick vào cái ô khoanh đỏ là xong :D
1689668059450.png

VetMini đã viết:
Nhiều cái mốc xì gì bạn.
Thớt đã biết mánh GPE từ đầu rồi: Muốn vòi code cho dễ thì cứ việc thêm chi tiết dữ liệu khủng hằng trăm ngàn dòng.
Nhấp chuột vào đây để mở rộng...
Nhiều khi thớt chưa biết mà do bác mách nước nên các thành viên khác mới biết đây --=0
 
Upvote 0
Nhattanktnn đã viết:
Mình có nói công thức đâu, bước 1 thì filter cột stt bằng "*1" -> OK. Bước 2 thì filter "*6" tick vào cái ô khoanh đỏ là xong :D
View attachment 292870


Nhiều khi thớt chưa biết mà do bác mách nước nên các thành viên khác mới biết đây --=0
Nhấp chuột vào đây để mở rộng...
Cái vụ Add current selection filter này đúng là giờ em mới biết luôn anh, đúng là lâu nay filter phà phà mà tối cổ quá. :D
 
Upvote 0
Bài này bạn cũng có thể dùng công thức ở cột G1
=INDEX(A:A, (ROW()-1)*5+1)
Bài đã được tự động gộp:

Ngẫm lại mình cũng hay xin code, trợ giúp đồng môn xin code.
Cách 1
Mã: 
Sub cong_thuc()
    Dim i As Integer
    Dim j As Integer
    
    j = 1
    
    For i = 1 To 1000 Step 5
        Sheets("Sheet1").Range("G" & j).FormulaR1C1 = "=R" & i & "C1"
        j = j + 1
    Next i
End Sub

Cách 2
Mã: 
Sub viet_binh_thuong()
Dim i As Integer
Dim j As Integer

j = 1

For i = 1 To 1000 Step 5

Sheets("Sheet1").Range("G" & j).Formula = "=A" & i
j = j + 1

Next i
End Sub

Cách 3:
Mã: 
Sub viet_bang_mang()
Dim dataArray() As Variant
Dim i As Integer
Dim j As Integer


dataArray = Sheets("Sheet1").Range("A1:A1000").Value

j = 1

For i = 1 To 1000 Step 5
Sheets("Sheet1").Range("G" & j).Value = dataArray(i, 1)
j = j + 1
Next i
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
Tình nghĩa giang hồ đã viết:
Bài này bạn cũng có thể dùng công thức ở cột G1
=INDEX(A:A, (ROW()-1)*5+1)
Bài đã được tự động gộp:

Ngẫm lại mình cũng hay xin code, trợ giúp đồng môn xin code.
Cách 1
Mã: 
Sub cong_thuc()
    Dim i As Integer
    Dim j As Integer
   
    j = 1
   
    For i = 1 To 1000 Step 5
        Sheets("Sheet1").Range("G" & j).FormulaR1C1 = "=R" & i & "C1"
        j = j + 1
    Next i
End Sub

Cách 2
Mã: 
Sub viet_binh_thuong()
Dim i As Integer
Dim j As Integer

j = 1

For i = 1 To 1000 Step 5

Sheets("Sheet1").Range("G" & j).Formula = "=A" & i
j = j + 1

Next i
End Sub

Cách 3:
Mã: 
Sub viet_bang_mang()
Dim dataArray() As Variant
Dim i As Integer
Dim j As Integer


dataArray = Sheets("Sheet1").Range("A1:A1000").Value

j = 1

For i = 1 To 1000 Step 5
Sheets("Sheet1").Range("G" & j).Value = dataArray(i, 1)
j = j + 1
Next i
End Sub
Nhấp chuột vào đây để mở rộng...

tieutuvodanh192 đã viết:
Cái này thì cần gì VBA bạn.
G1 = 1
G2 = G1 + 5
Tương tự kéo công thức cột G xuống
Mấy giá trị bên cạnh thì bạn dùng hàm Vlookup hoặc Index + Match sang là được.
Nhấp chuột vào đây để mở rộng...
Lưu ý cột A dữ liệu tượng trưng và có trùng mã nên ko thế dùng Vlookup
 
Upvote 0
Tình nghĩa giang hồ đã viết:
Ngẫm lại mình cũng hay xin code, trợ giúp đồng môn xin code.
...
Nhấp chuột vào đây để mở rộng...
Code căn bản không có gì xấu. Không tự viết được thì xin cũng chả sao.

Nhưng riêng ở GPE thì chĩnh các thành viên mê viết code đã vô tình tạo thói xấu cho người khác. Thay vì chịu khó tìm hiểu thêm để tự làm (thủ công) thì xin code cho bớt thao tác. Thành thói quen rồi thì bắt đầu tránh thủ công càng nhiều càng tốt, bởi vì mọt lần làm sẽ lâu gấp 5-10 lần người khác, do không thuần thục.
Lại cũng có người hay nảy "sáng kiến" rồi ngờ người ta thực thi giùm. Những người này đáng lẽ phải suy nghĩ cho chính chắn: "sáng kiến ấy chỉ làm bớt thao tác thủ công, chứ chả nâng cao trình độ Excel của mình chút tẹo nào"
 
Upvote 0
.......................................
 
Lần chỉnh sửa cuối:
Upvote 0
Bài của bạn là vùng dữ liệu bạn dùng code này thử
Mã: 
Sub vung_du_lieu_buoc_nhay_nam()
    Dim dataArray() As Variant
    Dim i As Integer
    Dim j As Integer
    
    
    dataArray = Sheets("Sheet1").Range("A1:D1000").Value
    
    j = 1
    
    For i = 1 To 1000 Step 5
        
      
        Sheets("Sheet1").Range("G" & j).Value = dataArray(i, 1)
        
      
        Sheets("Sheet1").Range("H" & j).Value = dataArray(i, 2)
        
      
        Sheets("Sheet1").Range("I" & j).Value = dataArray(i, 3)
        
        Sheets("Sheet1").Range("J" & j).Value = dataArray(i, 4)
        
        j = j + 1
        
    Next i
End Sub
 
Upvote 0
Nhattanktnn đã viết:
...
Nhiều khi thớt chưa biết mà do bác mách nước nên các thành viên khác mới biết đây --=0
Nhấp chuột vào đây để mở rộng...
Nếu không dùng VBA thì mọi thứ khác đều có thể Ctrl+Z để chữa tính nhầm.
Cứ việc thử mọi cách chứ có gì đâu mà sợ, phải chờ người khác khám phá giùm mình.
Ba cái thứ này tôi có chồng giấy nháp bên cạnh, thử mọi kiểu, ghi vào giấy. Sau đó độc lại thì tổng kết được hầu hết nẻo nách sử dụng của công cụ ấy.
Chủ trương học của tôi là ghi lại rồi tổng kết. Các bạn không chịu ghi cho nên thấy nó nhiều quá rồi ngại không nhớ hết.
 
Upvote 0
Văn Toàn 1996 đã viết:
Chào tất cả các bạn. Tôi cần 1 đoạn code xuất dữ liệu như sau. Vùng dữ liệu của tôi là A1:D100000 tôi muốn cứ cách 5 dòng xuất ra vùng cột G
cụ thể các dòng (1,6,11,16...). Xin chân thành cảm ơn

View attachment 292865
Nhấp chuột vào đây để mở rộng...
Bài này mình nghĩ không cần dùng đến VBA đâu.
Bạn thử cách này xem sao:
- E1 = 1
- E2 = MOD(ROW(E1),5)+1. Kéo công thức cho đến hết
- Filter cột E = 1. Copy sang vùng bạn cần
 
Upvote 0
Tình nghĩa giang hồ đã viết:
Bài của bạn là vùng dữ liệu bạn dùng code này thử
Mã: 
Sub vung_du_lieu_buoc_nhay_nam()
    Dim dataArray() As Variant
    Dim i As Integer
    Dim j As Integer
   
   
    dataArray = Sheets("Sheet1").Range("A1:D1000").Value
   
    j = 1
   
    For i = 1 To 1000 Step 5
       
     
        Sheets("Sheet1").Range("G" & j).Value = dataArray(i, 1)
       
     
        Sheets("Sheet1").Range("H" & j).Value = dataArray(i, 2)
       
     
        Sheets("Sheet1").Range("I" & j).Value = dataArray(i, 3)
       
        Sheets("Sheet1").Range("J" & j).Value = dataArray(i, 4)
       
        j = j + 1
       
    Next i
End Sub
Nhấp chuột vào đây để mở rộng...
cảm ơn bạn. Đã test dữ liệu 800.000 dòng uống xong ly cà phê nó còn chưa chạy xong ( đã đổi biến Integer thành và Long và chưa thêm Application.ScreenUpdating = False )
Bài đã được tự động gộp:

hieuhus đã viết:
Bài này mình nghĩ không cần dùng đến VBA đâu.
Bạn thử cách này xem sao:
- E1 = 1
- E2 = MOD(ROW(E1),5)+1. Kéo công thức cho đến hết
- Filter cột E = 1. Copy sang vùng bạn cần
Nhấp chuột vào đây để mở rộng...
rồi Dữ liệu 1 triệu dòng kéo như bạn xong Banh máy luôn, treo luôn kaka
Bài đã được tự động gộp:

Tình nghĩa giang hồ đã viết:
Bài này bạn cũng có thể dùng công thức ở cột G1
=INDEX(A:A, (ROW()-1)*5+1)
Bài đã được tự động gộp:

Ngẫm lại mình cũng hay xin code, trợ giúp đồng môn xin code.
Cách 1
Mã: 
Sub cong_thuc()
    Dim i As Integer
    Dim j As Integer
   
    j = 1
   
    For i = 1 To 1000 Step 5
        Sheets("Sheet1").Range("G" & j).FormulaR1C1 = "=R" & i & "C1"
        j = j + 1
    Next i
End Sub

Cách 2
Mã: 
Sub viet_binh_thuong()
Dim i As Integer
Dim j As Integer

j = 1

For i = 1 To 1000 Step 5

Sheets("Sheet1").Range("G" & j).Formula = "=A" & i
j = j + 1

Next i
End Sub

Cách 3:
Mã: 
Sub viet_bang_mang()
Dim dataArray() As Variant
Dim i As Integer
Dim j As Integer


dataArray = Sheets("Sheet1").Range("A1:A1000").Value

j = 1

For i = 1 To 1000 Step 5
Sheets("Sheet1").Range("G" & j).Value = dataArray(i, 1)
j = j + 1
Next i
End Sub
Nhấp chuột vào đây để mở rộng...
Tất cả các cách bạn giúp thực sự không có tính tốc độ khi dữ liệu lớn .dù sao cảm ơn bạn
 
Upvote 0
Văn Toàn 1996 đã viết:
rồi Dữ liệu 1 triệu dòng kéo như bạn xong Banh máy luôn, treo luôn kaka
Nhấp chuột vào đây để mở rộng...
Chém gió, mấy công thức hạt bụi như vậy nháy mắt cái là xong, 1 triệu dòng mà to chắc.
Bài toán cỏn con suy nghĩ cho lòng vòng rồi còn bày đặt tốc độ này nọ.
 
Lần chỉnh sửa cuối:
Upvote 0
Trung bình thì một ngày làm công việc này mấy lần?
Nếu cả tuần mới làm một lần thì chỉ là công việc bất thường, cho nó chạy nửa ngày cũng chẳng sao.

Nếu nhiều hơn 2 ngày một lần thì đây là công việc thường xuyên.
Thường xuyên làm việc với dữ liệu lớn thì phải biết mà học Data Model. Không thể ỷ lại vào nhờ người khác giúp.

Microsoft đã cập nhật với những công cụ làm việc với dữ liệu lớn hơn chục năm rồi. Lười học rồi ở đấy mà banh máy với kaka, kacọt..
 
Upvote 0
tieutuvodanh192 đã viết:
Chém gió, mấy công thức hạt bụi như vậy nháy mắt cái là xong, 1 triệu dòng mà to chắc.
Bài toán cỏn con suy nghĩ cho lòng vòng rồi còn bày đặt tốc độ này nọ.
Nhấp chuột vào đây để mở rộng...
dữ liệu tầm 1 triệu dòng ,1 ngày chạy code này tầm 5000 lần, bạn có thời gian để kéo 5000 lần cho 1 triệu dòng không nhĩ . Bài toán con nhưng bạn chưa chắc làm được sao cho <0.2 giây cho 1 triệu dòng .
Bài đã được tự động gộp:

VetMini đã viết:
Trung bình thì một ngày làm công việc này mấy lần?
Nếu cả tuần mới làm một lần thì chỉ là công việc bất thường, cho nó chạy nửa ngày cũng chẳng sao.

Nếu nhiều hơn 2 ngày một lần thì đây là công việc thường xuyên.
Thường xuyên làm việc với dữ liệu lớn thì phải biết mà học Data Model. Không thể ỷ lại vào nhờ người khác giúp.

Microsoft đã cập nhật với những công cụ làm việc với dữ liệu lớn hơn chục năm rồi. Lười học rồi ở đấy mà banh máy với kaka, kacọt..
Nhấp chuột vào đây để mở rộng...
dữ liệu tầm 1 triệu dòng ,1 ngày chạy code này tầm 5000 lần. xin tư vấn thuật toán
 
Upvote 0
Văn Toàn 1996 đã viết:
dữ liệu tầm 1 triệu dòng ,1 ngày chạy code này tầm 5000 lần, bạn có thời gian để kéo 5000 lần cho 1 triệu dòng không nhĩ . Bài toán con nhưng bạn chưa chắc làm được sao cho <0.2 giây cho 1 triệu dòng .
Nhấp chuột vào đây để mở rộng...
Làm sao có thể chạy code làm việc đó trong vòng 0,2 giây được nhỉ? Máy tôi hơi cùi chạy (code tôi viết) hết 3,7 giây. Máy mạnh chắc tầm 1 - 2 giây.
 
Upvote 0
Văn Toàn 1996 đã viết:
dữ liệu tầm 1 triệu dòng ,1 ngày chạy code này tầm 5000 lần, bạn có thời gian để kéo 5000 lần cho 1 triệu dòng không nhĩ . Bài toán con nhưng bạn chưa chắc làm được sao cho <0.2 giây cho 1 triệu dòng .
...
Nhấp chuột vào đây để mở rộng...
Tôi chuyên nghiệp về C++. Cỡ bạn khiêu khích tôi không nổi đâu.

Văn Toàn 1996 đã viết:
dữ liệu tầm 1 triệu dòng ,1 ngày chạy code này tầm 5000 lần. xin tư vấn thuật toán
Nhấp chuột vào đây để mở rộng...
5000 x 1000000 là 5 tỷ phát sinh một ngày.
Chả có thuật toán nào cho cái công ty bủn xỉn. Phân tích cỡ này mà dùng Excel. Chuyên viên phụ trách chập choạng.

Đây là tầm cỡ của Oracle, SQL Server, Mongo,...
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

Tuấn Bụng Bự
Mở Pass file excel phiên bản .xlsx , xlsm, xlsb
Trả lời
3
Đọc
62
PhanTuHuong
PhanTuHuong
V
  • Question Question
xác định xu hướng
Trả lời
3
Đọc
97
vuthienfx
V
giaiphap
Lập trình C# tạo Add-ins cho excel.
    • Thích
Trả lời
52
Đọc
7K
nguyendang95
N
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
2 3 4
Trả lời
383
Đọc
45K
nguyendang95
N
OverAC
  • Dán lên cao
  • Suggestion Suggestion
Chúc mừng sinh nhật GiaiPhapExcel 19 tuổi và tặng ebook "Lập trình VBA phần cơ bản."
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
7
Đọc
1K
PhanTuHuong
PhanTuHuong
Y
Lấy dữ liệu từ sheet chi tiết sang sheet tổng hợp hàng dọc (1 người xem)
Trả lời
6
Đọc
574
yoomi
Y
E
Đánh số cho các cặp số chứng từ và số chứng từ đối ứng
Trả lời
16
Đọc
393
Phan Thế Hiệp
Phan Thế Hiệp
N
Hàm tính chuỗi số trong 1 ô hoặc 1 dãy ô ra tổng kết quả. (1 người xem)
Trả lời
2
Đọc
112
minhminh27
minhminh27
NguyenthiH
Mở file Excel có Pass Open
Trả lời
39
Đọc
3K
Hoàng Tuấn 868
H
M
Tách dữ liệu trong 1 file thành nhiều sheet theo số lượng dòng
    • Ngạc nhiên
Trả lời
25
Đọc
3K
Hoàng Tuấn 868
H
T
Tìm số hóa đơn trong chuỗi
Trả lời
11
Đọc
442
thao nguyen01
T
T
  • Question Question
Nhờ ACE cao thủ hỗ trợ mình có một chương trình EXCEL về phân công lớp cho giáo viên
Trả lời
6
Đọc
339
DeTong
D
T
Nhờ các anh chị sửa dùm công thức ạ.
Trả lời
10
Đọc
230
trantrungvinh1989
T
C
Chia sẻ: Kết quả xổ số Keno
    • Cười
    • Thích
Trả lời
24
Đọc
2K
phuongdaik98
P
Phan Thế Hiệp
Quy đổi từ Thu nhập sau thuế (TNCN) ra Thu nhập tính thuế
    • Yêu thích
    • Thích
Trả lời
1
Đọc
367
Phan Thế Hiệp
Phan Thế Hiệp
V
Quên mật khẩu file excel
Trả lời
25
Đọc
2K
YêuCN
Y
Nguyen Rem
  • Question Question
Lỗi "User-defined type not defined" khi khai báo biến
Trả lời
28
Đọc
2K
nguyendang95
N
V
Công thức để phân công chuyên môn cho giáo viên
Trả lời
5
Đọc
313
vietvanyen
V
G
AddIn convert ngày dương lịch sang âm lịch và ngược lại + đọc ngày tháng
Trả lời
20
Đọc
10K
du trung kien
D
8
Hàm trong excel (2 người xem)
Trả lời
3
Đọc
143
Hoàng Tuấn 868
H
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

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

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom