Code lấy giá trị cột bên phải ngoài cùng trong 1 vùng (1 người xem)

[minhtuan55]

Chào cả nhà GPE . Em có vấn đề cần cả nhà Giúp em. Em có 1 vùng bảng tính A3:G10. em chỉ muốn lấy giá trị bên phải của vùng này , mà em dùng hàm Count chẳng được. Mong cả nhà xem ảnh và File giúp em. Em xin chân thành cảm ơn !

 

[minhtuan55]

Em gửi File mọi người xem giúp em. Giai diện mới em không biết gửi chổ nào nữa Huhu

 

[PacificPR]

Em gửi File mọi người xem giúp em. Giai diện mới em không biết gửi chổ nào nữa Huhu

Nếu dữ liệu ít thì bạn dùng tạm cái này xem

Sub HeloGood()
    Dim i As Long, j As Long, Rc As Long, R As Long, C As Long
Application.ScreenUpdating = False
R = 3: Rc = 3
With Sheet2
    .Range("I3:J100").ClearContents
    For i = 3 To 10
        C = .Range("H" & i).End(xlToLeft).Column
        .Range("I" & Rc) = .Cells(i, C)
        Rc = Rc + 1
        For j = 1 To C - 1
            .Range("J" & R) = .Cells(i, j)
            R = R + 1
        Next j
    Next i
End With
Application.ScreenUpdating = True
End Sub

 

[PacificPR]

Lấy dữ liệu cột ngoài cùng chứa dữ liệu:
Công thức I3

=LOOKUP(2;1/(1-ISBLANK(A3:G3));A3:G3)

Copy xuống dưới

 

[Ba Tê]

Em gửi File mọi người xem giúp em. Giai diện mới em không biết gửi chổ nào nữa Huhu

Tặng bạn 1 Sub theo điều kiện của bạn.

Public Sub GPE()
Dim sArr(), dArr(1 To 56, 1 To 2), I As Long, J As Long, K1 As Long, K2 As Long
sArr = Range("A3:G10").Value
For I = 1 To 8
    For J = 1 To 7
        If sArr(I, J) <> Empty Then
            K2 = K2 + 1: dArr(K2, 2) = sArr(I, J)
        End If
    Next J
    K1 = K1 + 1: dArr(K1, 1) = dArr(K2, 2): K2 = K2 - 1
Next I
Range("I3:J50").ClearContents
Range("I3:J3").Resize(K2) = dArr
End Sub

 

[minhtuan55]

Tặng bạn 1 Sub theo điều kiện của bạn.

Public Sub GPE()
Dim sArr(), dArr(1 To 56, 1 To 2), I As Long, J As Long, K1 As Long, K2 As Long
sArr = Range("A3:G10").Value
For I = 1 To 8
    For J = 1 To 7
        If sArr(I, J) <> Empty Then
            K2 = K2 + 1: dArr(K2, 2) = sArr(I, J)
        End If
    Next J
    K1 = K1 + 1: dArr(K1, 1) = dArr(K2, 2): K2 = K2 - 1
Next I
Range("I3:J50").ClearContents
Range("I3:J3").Resize(K2) = dArr
End Sub

trường hợp Text có số 0 đằng trước thì code tự làm tròn ra số luôn. Em muốn Text nó ra làm sao thì xuất ra y vậy Ví dụ: 012 thi xuất ra cũng 012

 

[minhtuan55]

Nếu dữ liệu ít thì bạn dùng tạm cái này xem

Sub HeloGood()
    Dim i As Long, j As Long, Rc As Long, R As Long, C As Long
Application.ScreenUpdating = False
R = 3: Rc = 3
With Sheet2
    .Range("I3:J100").ClearContents
    For i = 3 To 10
        C = .Range("H" & i).End(xlToLeft).Column
        .Range("I" & Rc) = .Cells(i, C)
        Rc = Rc + 1
        For j = 1 To C - 1
            .Range("J" & R) = .Cells(i, j)
            R = R + 1
        Next j
    Next i
End With
Application.ScreenUpdating = True
End Sub

Code anh Tuyệt vời đấy. Dữ liệu em có Kích thước 20 dòng và 20 cột không biết có áp dụng được không anh