Tạo code lấy số từ bảng số liệu cho trước! (1 người xem)

[diepminhhong]

Anh (chị) có thế giúp e tạo code để tách lấy số như bảng số liệu ở file đính kèm được không ạ. E cảm ơn nhiều.

 

[Hoang2013]

Tiêu đề có vấn đề với nội 2ui; Sửa lại sẽ được giúp!

 

[diepminhhong]

Tiêu đề có vấn đề với nội 2ui; Sửa lại sẽ được giúp!

Anh ơi, e chưa hiểu ý anh nói ạ. E mới chỉ lập chủ đề ở diễn đàn 2 lần để hỏi nên chưa biết nội quy post bài ra sao để hỏi anh ạ. Mong ac thông cảm ạ.

 

[huongmuine]

Anh ơi, e chưa hiểu ý anh nói ạ. E mới chỉ lập chủ đề ở diễn đàn 2 lần để hỏi nên chưa biết nội quy post bài ra sao để hỏi anh ạ. Mong ac thông cảm ạ.

Bạn đọc ở đâyhttp://www.giaiphapexcel.com/diendan/threads/nội-quy-diễn-đàn.138/

 

[diepminhhong]

Bạn đọc ở đâyhttp://www.giaiphapexcel.com/diendan/threads/nội-quy-diễn-đàn.138/

Cảm ơn Anh (chị) nhiều. E đã chỉnh sửa lại rồi.

 

[diepminhhong]

Tiêu đề có vấn đề với nội 2ui; Sửa lại sẽ được giúp!

Ok anh, e đã chỉnh sửa lại rồi. E cảm ơn anh nhiều. Chúc anh sức khỏe ạ.

 

[Hoang2013]

Bằng cách tăng 1 cột trống giữa 2 fần số liệu (khi đó số liệu fía fải của bảng sẽ bắt đầu từ cột [N:N]) & chạy macro sau:

Sub LietKeSoTheoDuongCheo()
 Dim Cls As Range, Rng As Range, sRng As Range
 Dim Dg As Long, Cot As Integer, Num As Integer, Tmp As Integer

 [y3].CurrentRegion.Offset(, 1).ClearContents
 For Each Cls In Range("B3:w11")
    Dg = Cls.Row:                       Cot = Cls.Column
    Num = Cls.Value
    If Cls.Value <> "" And Num >= 0 And (Dg + Cot) Mod 2 = 1 Then
        If Cls.Offset(1, -1).Value <> "" Then
            Set Rng = Cells(3 + Num, "Z").Resize(, 90)
            Tmp = 10 * Num + Cls.Offset(1, -1).Value
            Set sRng = Rng.Find(Tmp, , xlFormulas, xlWhole)
            If sRng Is Nothing Then _
                Cells(3 + Num, 99).End(xlToLeft).Offset(, 1).Value = Tmp
        End If
        If Cls.Offset(1, 1).Value <> "" Then
            Set Rng = Cells(3 + Num, "Z").Resize(, 90)
            Tmp = 10 * Num + Cls.Offset(1, 1).Value
            Set sRng = Rng.Find(Tmp)
            If sRng Is Nothing Then _
                Cells(3 + Num, 99).End(xlToLeft).Offset(, 1).Value = Tmp
        End If
    End If
 Next Cls
End Sub

(*) Số 30 tại dòng 19 của bạn đang bị dư hay sao í?!

 

[befaint]

Tạm...

 

[diepminhhong]

Bằng cách tăng 1 cột trống giữa 2 fần số liệu (khi đó số liệu fía fải của bảng sẽ bắt đầu từ cột [N:N]) & chạy macro sau:
Cám ơn anh. E sẽ chạy thử.

 

[diepminhhong]

Tạm...

Cám ơn anh ạ.