Ghép các mã lại vơi nhau.

[bluecat]

Nhờ các anh chị trong GPE giúp em đoạn mã để ghép các mã sau đây lại với nhau. Thanks!

 

[SA_DQ]

Cần thiết hiểu sâu 2 phương thức Intersect() & Union() !?!

Chú í: Bạn bỏ số 351 tại dòng 1 của bạn đi, kết quả mới đúng được!

Option Explicit
Sub ToHopChap2()
 Dim Rng As Range, InRng As Range, Clls As Range, rg0 As Range
 Const gN As String = "-"
 
 [f1] = 351:                Range("F2:F999").Clear
 Set Rng = [C3].CurrentRegion.SpecialCells(xlCellTypeConstants, 3)
 For Each Clls In Rng
    If InRng Is Nothing Then
        Set InRng = Clls
    Else
        Set InRng = Union(InRng, Clls)
    End If
    For Each rg0 In Rng
        If Intersect(rg0, InRng) Is Nothing Then _
            [f65500].End(xlUp).Offset(1) = Clls.Value & gN & rg0.Value
    Next rg0
 Next Clls
End Sub

 

[bluecat]

Cảm ơn PRo HYen17 , đoạn mã của bạn chạy rất tốt! Khi bảng mã của mình có công thức thì mình thay thế :

 Set Rng = [F5].CurrentRegion.SpecialCells( xlCellTypeConstants , 3)

bằng

 Set Rng = [F5].CurrentRegion.SpecialCells(xlCellTypeFormulas, 3)

Tuy nhiên mình không hiểu số 3 có ý nghĩa gì?

Trong bảng mã của mình đôi khi sẽ có những cell mang giá trị = 0 thì lúc đó làm sao mình có thể ghép số 0 với các mã # 0 được?
Mong Pro chỉ thêm. Cảm ơn nhiều!

 

[ChanhTQ@]

đoạn mã của bạn chạy rất tốt! Khi bảng mã của mình có công thức thì mình thay thế :

 Set Rng = [F5].CurrentRegion.SpecialCells( xlCellTypeConstants , 3)

bằng

 Set Rng = [F5].CurrentRegion.SpecialCells(xlCellTypeFormulas, 3)

Tuy nhiên mình không hiểu số 3 có ý nghĩa gì?

Về con số 3 đó, cũng như SpecialCells & các vấn đề có liên quan, bạn có thể đến đây:
http://www.webketoan.com/forum/showthread.php?t=51963
http://www.webketoan.com/forum/showthread.php?t=51977 &
http://www.webketoan.com/forum/showthread.php?t=51961
Hoặc bạn dùng bộ thu macro với lệnh Goto trong menu Edit với các loại thông số khác nhau, sẽ thấy mà!

Trong bảng mã của mình đôi khi sẽ có những cell mang giá trị = 0 thì lúc đó làm sao mình có thể ghép số 0 với các mã # 0 được?
Mong Pro chỉ thêm. Cảm ơn nhiều!

Có thể có cách khoai thế này,bạn xem có áp được không?: Trước đó ta thay toàn bô. những ô có trị =0 bằng ký tự khá đặc biệt, đó là '@'
Sau cuối ta lại trả về nguyên trạng cho chúng;
Lúc đó trong những ô kết quả ta sẽ thấy '0-AV' hay 'GP-0'
Còn cái chuyện 0035 thì bạn tự nghiên cứu tiếp nha!