Ghép dòng (1 người xem)
- Thread starter hcl_pt
- Ngày gửi
Người dùng đang xem chủ đề này
Vâng! Cụ thể như sau ạ:
- Trường hợp ghép 2 dòng với nhau:
+ Bắt đầu xét từ dòng 4: dòng 4 ghép với dòng 5, 6, 7,...,n (Giả sử dòng cuối cùng là dòng thứ n)=> gặp trường hợp nào ghép thoả mãn điều kiện: 15 cột liên tiếp bắt đầu tính từ cột B có dữ liệu là chép sang sheet2
+ Sau khi xét hết dòng 4 với các dòng còn lại rồi thì lại chuyển sang xét từ dòng 5: dòng 5 ghép với dòng 6, 7, 8,...,n => gặp trường hợp nào ghép thoả mãn điều kiện: 15 cột liên tiếp bắt đầu tính từ cột B có dữ liệu là chép sang sheet2
+ Cứ xét như vậy cho đến khi còn trường hợp cuối cùng là dòng: thứ (n-1) ghép với dòng n => gặp trường hợp nào ghép thoả mãn điều kiện: 15 cột liên tiếp bắt đầu tính từ cột B có dữ liệu là chép sang sheet2
- Trường hợp ghép 3 dòng với nhau:
+ Cách làm tương tự như trường hợp ghép 2 dòng với nhau nhưng điều kiện thoả mãn là 25 cột liên tiếp có dữ liệu là chép sang sheet3.
- Cảm ơn bạn đã quan tâm! Thân ái!
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,975
Sao giống bài này quá ta:
http://www.giaiphapexcel.com/forum/showthread.php?41620-Lọc-dữ-liệu
Có liên quan gì với nhau không?
- Tham gia
- 8/6/06
- Bài viết
- 14,758
- Được thích
- 23,169
- Nghề nghiệp
- U80
Nhưng dữ liệu bạn đưa lên quá thật, đến nổi không dùng để kiểm chứng được!
Mình vừa dùng hàm tự tạo để tính các ô liên tiếp có dữ liệu thì cao nhứt là 11 ô, còn lại là 7 hay 8 ô;
Những ô có xác suất cao được chọn này cũng không có cặp đôi nào thoả được điều kiện của bạn đề ra là liên tiếp 15 ô có dữ liệu.
Cũng như ở đây: http://www.giaiphapexcel.com/forum/showthread.php?45222-Lọc-với-rất-nhiều-điều-kiện Chúng tôi cũng đã fải giả lập, thêm & bớt dữ liệu để kiểm chứng tính đúng đắn của chương trính.
Lần sau bạn nên rút kinh nghiệm về chuyện này!
Còn bây giờ thì . . . . mạnh ai nấy sửa vậy!
Mình vừa dùng hàm tự tạo để tính các ô liên tiếp có dữ liệu thì cao nhứt là 11 ô, còn lại là 7 hay 8 ô;
Những ô có xác suất cao được chọn này cũng không có cặp đôi nào thoả được điều kiện của bạn đề ra là liên tiếp 15 ô có dữ liệu.
Cũng như ở đây: http://www.giaiphapexcel.com/forum/showthread.php?45222-Lọc-với-rất-nhiều-điều-kiện Chúng tôi cũng đã fải giả lập, thêm & bớt dữ liệu để kiểm chứng tính đúng đắn của chương trính.
Lần sau bạn nên rút kinh nghiệm về chuyện này!
Còn bây giờ thì . . . . mạnh ai nấy sửa vậy!
Cảm ơn bạn SA_DQ!
- File mình gửi kèm theo có trường hợp thoả mãn đó là:
+ Trường hợp ghép 2 dòng: có dòng 4 (1;2) và dòng 5 (1;3) khi ghép với nhau là thoả mãn có hẳn 20 cột liên tiếp có dữ liệu!
+ Trường hợp ghép 3 dòng: có dòng 4 (1;2) và dòng 5 (1;3) và dòng 6 (1;4) khi ghép với nhau có hẳn 34 cột liên tiếp đều có dữ liệu!
- Mong bạn kiểm tra, cảm ơn bạn nhiều! Thân ái!
- Tham gia
- 8/6/06
- Bài viết
- 14,758
- Được thích
- 23,169
- Nghề nghiệp
- U80
Bạn ghép sao được vậy?
Dòng 4 từ cột K đến cột U có dữ liệu & max trong dòng; Dòng 5 từ cột c->J có dữ liệu & MAX trong nớ.
Mình ghép nối đuôi nhau thì Số ô liên tiếp lớn nhứt có dữ liệu vẫn là 11 tròn trĩnh mà thôi! (Đừng có nói với tôi là bạn cộng dồn đó nhe!)
Mình mở file E2003 & thấy như vầy:
Dòng 4 từ cột K đến cột U có dữ liệu & max trong dòng; Dòng 5 từ cột c->J có dữ liệu & MAX trong nớ.
Mình ghép nối đuôi nhau thì Số ô liên tiếp lớn nhứt có dữ liệu vẫn là 11 tròn trĩnh mà thôi! (Đừng có nói với tôi là bạn cộng dồn đó nhe!)
Vâng! Bạn àh! Bạn xem hộ mình điều kiện là ghép dòng sao cho bắt đầu đếm từ cột B liên tiếp ít nhất 15 cột có chứa dữ liệu là thoả mãn (Trong cùng một cột chỉ cần có dữ liệu ở 1 trong 2 dòng là được)!
- Mình xin gửi kèm 1 ví dụ ở file sau: sheet2 là kết quả ghép 2 dòng; sheet 3 là kết quả ghép 3 dòng! Mình không gửi được file với CSDL nhiều nên mình lấy ví dụ minh hoạ!
-Cảm ơn bạn! Thân ái!
Vâng! Bạn àh! Trường hợp bạn làm tổng quát hơn điều kiện mình đưa ra ạ!
- Với file trên bạn gửi đã giúp mình thêm rất nhiều! Chân thành cảm ơn bạn!
- Mình xin lỗi bạn nhiều quá tại vì minh mô tả không rõ: điều kiện chính xác ở đây là tìm ghép dòng sao cho:
+ Trường hợp ghép 2 dòng: ít nhất 15 cột đầu tiên liên tiếp bắt đầu tính từ cột B có dữ liệu là thoả mãn chép sang sheet 2
+ Trường hợp ghép 3 dòng: ít nhất 25 cột đầu tiên liên tiếp bắt đầu tính từ cột B có dữ liệu là thoả mãn chép sang sheet3
ChanhTQ@
0901452không62
- Tham gia
- 5/9/08
- Bài viết
- 4,254
- Được thích
- 4,861
Thử chạy trên 1 fút với macro sau
Nếu muốn cho nhiều kết quả hơn thì tăng thời gian chạy lên thay vì 60''.
PHP:
Option Explicit
Sub Gop3Dong()
Dim Rng As Range, Sh As Worksheet
Dim jJ As Long, Jw As Long, jZ As Long, Col As Byte, Rws As Long, Cot As Byte
Dim Timer_ As Double: Dim MyAdd As String
Sheet1.Select: Timer_ = Timer
Set Rng = [b1].CurrentRegion: Col = Rng.Columns.Count
Rws = [A65500].End(xlUp).Row
Cells(4, Col + 2).Resize(Rws, Col).Clear: Sheet2.[a1].Resize(5 * Rws, Col).Clear
Set Sh = ThisWorkbook.Worksheets("S3")
For jJ = 4 To Rws - 2
For Jw = jJ + 1 To Rws - 1
For jZ = Jw + 1 To Rws
Sh.[b1].Resize(, Col).Clear
Sh.[b1].Resize(, Col).Value = Cells(jJ, "B").Resize(, Col).Value
Set Rng = Cells(Jw, "B").Resize(, Col)
For Cot = 2 To Col
If Cells(Jw, Cot).Value <> "" Or Cells(jZ, Cot).Value <> "" Then
Sh.Cells(1, Cot).Value = IIf(Cells(Jw, Cot).Value <> "", 8, 9)
End If
Next Cot
If Sh.[Ba1] > 24 Then
With Sheet2.[A65500].End(xlUp).Offset(2)
.Resize(, Col).Value = Cells(jJ, "A").Resize(, Col).Value
.Offset(1).Resize(, Col).Value = Cells(Jw, "A").Resize(, Col).Value
.Offset(2).Resize(, Col).Value = Cells(jZ, "A").Resize(, Col).Value
End With
End If
Next jZ
Next Jw
Sheet2.[a1].Value = Timer() - Timer_
If Timer() - Timer_ > 60 Then Exit For
Next jJ
Sheet2.Select
End SubNếu muốn cho nhiều kết quả hơn thì tăng thời gian chạy lên thay vì 60''.
- Hix! Bác Chanh TQ ơi! Mình cho chạy code mà sao không được kết quả? Mình không hiểu sai ở đâu lắm?
- Bác xem giúp hộ mình với! Thân ái! Cảm ơn bác!
. . . . . .
Vâng! Bác ChanhTQ ơi! Cảm ơn bác!
Đúng là ý tưởng như vậy ạ, nhưng có điều mình phải xin lỗi bác tại vì minh mô tả không rõ: điều kiện chính xác ở đây là tìm ghép dòng sao cho:
+ Trường hợp ghép 2 dòng: ít nhất 15 cột đầu tiên liên tiếp bắt đầu tính từ cột B có dữ liệu là thoả mãn chép sang sheet 2
+ Trường hợp ghép 3 dòng: ít nhất 25 cột đầu tiên liên tiếp bắt đầu tính từ cột B có dữ liệu là thoả mãn chép sang sheet3
- Một lần nữa xin lỗi bác! Chúc bác một ngày mới thành công! Thân ái!
Lần chỉnh sửa cuối:
Bác ChanhTQ có thể sửa lại một chút xíu về code được không ạ? Bác lấy trường hợp là ít nhất 25 cột đầu tiên bắt đầu tính từ cột B có dữ liệu (từ cột B đến cột Z phải có dữ liệu) là thoả mãn! Cảm ơn bác! Thân ái!
- Tham gia
- 8/6/06
- Bài viết
- 14,758
- Được thích
- 23,169
- Nghề nghiệp
- U80
Bạn thừ với macro sau (Kết quả hiện ở trang Sheet4)
PHP:
Option Explicit
Sub First25ColumnsNoneBlank()
Dim jJ As Long, Ww As Long, zZ As Long, Col As Byte, Ff As Byte
Dim Rws As Long, Timer_ As Double: Const H5 As Byte = 26
Dim jRng As Range, wRng As Range, zRng As Range, sRng As Range
Sheet1.Select: Timer_ = Timer
Rws = [A65500].End(xlUp).Row: Col = H5 + 2
Sheet4.[a1].Resize(5 * Rws, 5 + H5).Clear
For jJ = 4 To Rws - 2
Set jRng = Cells(jJ, "B").Resize(, H5)
For Ww = jJ + 1 To Rws - 1
Set wRng = Cells(Ww, "B").Resize(, H5)
For zZ = Ww + 1 To Rws
Set zRng = Cells(zZ, "B").Resize(, H5)
For Ff = 2 To H5
Set sRng = Union(Cells(jJ, Ff), Cells(Ww, Ff), Cells(zZ, Ff))
If Application.WorksheetFunction.Sum(sRng) < 1 Then
Exit For
End If
Next Ff
If Ff >= H5 Then
With Sheet4.[A65500].End(xlUp).Offset(2)
.Resize(, Col).Value = Cells(jJ, "A").Resize(, Col).Value
.Offset(1).Resize(, Col).Value = Cells(Ww, "A").Resize(, Col).Value
.Offset(2).Resize(, Col).Value = Cells(zZ, "A").Resize(, Col).Value
If Ff = H5 Then
.Offset(, H5 - 1).Resize(3, 3).Interior.ColorIndex = 39
End If
End With
End If
Next zZ
Next Ww
Next jJ
Sheet4.[a1].Value = Timer() - Timer_: Sheet4.Select
End SubVâng! Đúng rồi bác SA_DQ ạ! Đúng là như vậy ạ, nhưng sao phần kết quả chép sang sheet4 dữ liệu của các dòng chỉ chép đến cột AB thôi bác? (Nếu chép nguyên dòng thì hay quá và thích nhất là cách tô màu phần sau không thoả mãn của bác!)
- Cảm ơn bác nhiều quá! Mong bác xem xét giúp mình trường hợp tiếp theo ạ! Chúc bác thành công! Thân ái!
- Tham gia
- 8/6/06
- Bài viết
- 14,758
- Được thích
- 23,169
- Nghề nghiệp
- U80
Để chép nguyên dòng dữ liệu, thì. . . .
Ta sửa lại fần dòng lệnh
bằng dòng lệnh
Nếu bạn chép hay gỏ dòng lệnh này & sau khi cho con trỏ đến dòng lệnh khác mà chữ 'c' nó trổ bông để nghênh đoán tân xuân là OK đó nha!
[/COLOR][/COLOR]
Ta sửa lại fần dòng lệnh
Mã:
[COLOR=#000000][COLOR=#007700][/COLOR][COLOR=#0000BB]Col [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]H5 [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]2bằng dòng lệnh
PHP:
Col = [iV1].end(xlToLeft).columnNếu bạn chép hay gỏ dòng lệnh này & sau khi cho con trỏ đến dòng lệnh khác mà chữ 'c' nó trổ bông để nghênh đoán tân xuân là OK đó nha!
[/COLOR][/COLOR]
Vâng! Mình làm được rồi ạ! Cảm ơn các bạn! Mong GPE giúp đỡ hộ cho trường hợp ghép 2 dòng được không ạ?
- Chúc GPE thành công! Thân!
- Tham gia
- 8/6/06
- Bài viết
- 14,758
- Được thích
- 23,169
- Nghề nghiệp
- U80
Tất nhiên là được mà bạn:
PHP:
Option Explicit
Sub First15ColumnIn2RowsHasValues()
Dim jJ As Long, Ww As Long, Col As Byte, Ff As Byte
Dim Rws As Long, Timer_ As Double: Const H7 As Byte = 15
Dim jRng As Range, wRng As Range, sRng As Range
Sheet1.Select: Timer_ = Timer
Rws = [A65500].End(xlUp).Row: Col = [Iv2].End(xlToLeft).Column
Sheet2.[a1].Resize(3 * Rws, Col).Clear
For jJ = 4 To Rws - 1
Set jRng = Cells(jJ, "B").Resize(, H7)
For Ww = jJ + 1 To Rws
Set wRng = Cells(Ww, "B").Resize(, H7)
For Ff = 2 To H7
Set sRng = Union(Cells(jJ, Ff), Cells(Ww, Ff))
If Application.WorksheetFunction.Sum(sRng) < 1 Then
Exit For
End If
Next Ff
If Ff >= H7 Then
With Sheet2.[A65500].End(xlUp).Offset(2)
.Resize(, Col).Value = Cells(jJ, "A").Resize(, Col).Value
.Offset(1).Resize(, Col).Value = Cells(Ww, "A").Resize(, Col).Value
If Ff > H7 Then _
.Offset(, H7 - 14).Resize(2, Ff).Font.ColorIndex = 3
End With
End If
Next Ww
Next jJ
Sheet2.[a1].Value = Timer() - Timer_: Sheet2.Select
End Sub- Chào buổi sáng! Chào GPE!
Bạn HYen ơi! Với đoạn code này mình test thì vẫn có trường hợp 13 cột đầu tiên có dữ liệu vẫn chép sang sheet2?
- Chân thành mong bạn chỉ điểm cho mình cách sửa đoạn code trên mình nên sửa ở những dòng code nào nếu mình muốn điều kiện là 20 cột đầu tiên, hay 25 cột đầu tiên,... có dữ liệu chép sang sheet2? Nếu mình hiểu cách sửa thì mình sẽ dễ dàng tuỳ biến điều kiện!
- Chúc bạn một ngày làm việc thành công! Cảm ơn bạn! Thân ái!
ChanhTQ@
0901452không62
- Tham gia
- 5/9/08
- Bài viết
- 4,254
- Được thích
- 4,861
Bạn thấy fần sau của dòng lệnh
này chứ?, Nó đó bạn & hãy thử thay bằng các con số nào lớn hơn 2 xem sao?
[/COLOR][/COLOR]
Mã:
[COLOR=#000000][COLOR=#007700]Const [/COLOR][COLOR=#0000BB]H7 [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]15[/COLOR][/COLOR]
Bài viết mới nhất
- Question
- Question
