Ghép dòng

Liên hệ QC
H

hcl_pt

Thành viên hoạt động
Tham gia
21/10/10
Bài viết
199
Được thích
10
Mấy ngày ăn tết thật vui vẻ thoải mái! Cảm ơn GPE nhiều quá!
GPE có thể xem giúp mình trường hợp ghép dòng có điều kiện như thế này thì làm như thế nào ạ? Mình có gửi kèm theo file excel2007!
- Mong tin vui! Thân ái!
 

File đính kèm

  • Ghep_dong.rar
    18.1 KB · Đọc: 32
Câu như vầy lại đâm ra khó hiểu rồi:
+ Ghép 2 dòng với nhau lần lượt từ trên xuống dưới bắt đầu từ dòng 4 đến hết (Dòng 4 ghép hết với các dòng còn lại thì lại tiếp tục chuyển sang đến dòng 5 ghép với các dòng còn lại,.v.v.. cứ như vậy)
Nhấp chuột vào đây để mở rộng...

& 1 vấn đề nữa fát sinh là: Dòng cuối cùng sẽ fải nối với hư vô chăng?
 
Chỉnh sửa lần cuối bởi điều hành viên:
HYen17 đã viết:
Câu như vầy lại đâm ra khó hiểu rồi:


& 1 vấn đề nữa fát sinh là: Dòng cuối cùng sẽ fải nối với hư vô chăng?
Nhấp chuột vào đây để mở rộng...
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!
 
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!
 
SA_DQ đã viết:
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!
Nhấp chuột vào đây để mở rộng...
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!
 
Bạn ghép sao được vậy?

- 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!
Nhấp chuột vào đây để mở rộng...
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!)
 
HYen17 đã viết:
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!)
Nhấp chuột vào đây để mở rộng...
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!
 

File đính kèm

  • Ghep_dong.rar
    10.5 KB · Đọc: 17
Bạn kiểm theo file đính kèm

Đang còn chậm lắm & E2003 đó nghe!
 

File đính kèm

  • GPE.rar
    60.6 KB · Đọc: 17
HYen17 đã viết:
Đang còn chậm lắm & E2003 đó nghe!
Nhấp chuột vào đây để mở rộng...

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
 
Thử chạy trên 1 fút với macro sau

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 Sub

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''.
 
ChanhTQ@ đã viết:
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 Sub

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''.
Nhấp chuột vào đây để mở rộng...
- 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!
 
Fải đưa file lên vậy!

--=0 }}}}} ||||| -=.,, --=-- :-=

. . . . . .
 

File đính kèm

  • GPE.rar
    27.8 KB · Đọc: 15
ChanhTQ@ đã viết:
--=0 }}}}} ||||| -=.,, --=-- :-=

. . . . . .
Nhấp chuột vào đây để mở rộng...

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:
Đ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
Nhấp chuột vào đây để mở rộng...
Bọn mình vẫn chép lên Sheet2 Vì Sheet3 đã bị trưng thu làm trang nền kết quả rồi, hi, hi,. . . .
 
ChanhTQ@ đã viết:
Bọn mình vẫn chép lên Sheet2 Vì Sheet3 đã bị trưng thu làm trang nền kết quả rồi, hi, hi,. . . .
Nhấp chuột vào đây để mở rộng...

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!
 
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 Sub
 
SA_DQ đã viết:
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 Sub
Nhấp chuột vào đây để mở rộng...

Vâ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!
 
Để chép nguyên dòng dữ liệu, thì. . . .

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]2

bằng dòng lệnh
PHP: 
 Col = [iV1].end(xlToLeft).column

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]
 
HYen17 đã viết:
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]2

bằng dòng lệnh
PHP: 
 Col = [iV1].end(xlToLeft).column

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]
Nhấp chuột vào đây để mở rộng...

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!
 
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

son0611excel
  • Question
VBA tra cứu hình theo điều kiện
Trả lời
11
Đọc
229
tle2003
T
Salem999999999
Lọc dữ liệu có điều kiện
2
Trả lời
25
Đọc
548
tle2003
T
vuongnlks
Lấy dữ liệu 1 cột cụ thể theo ngày từ nhiều file CSV ứng với mã tương ứng trong cột MA CO PHIEU
Trả lời
1
Đọc
78
BuiQuangThuan
B
V
Hỗ trợ hàm Sumproduct và Subtotal trong GG Sheets
Trả lời
3
Đọc
230
ngocphuongchip123
ngocphuongchip123
K
Tính tổng có điều kiện
Trả lời
4
Đọc
159
kimson_nb
K
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

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

Back
Top Bottom