Nhờ anh chị giúp đỡ code lấy giữ liệu từ 1 cột phụ (1 người xem)

[vova2209]

Nhờ anh chị giúp đỡ code lấy giữ liệu:
VD + như dòng 6 Đắp đất 4, bên dưới cột phụ không có giữ liệu
+ Dòng 12~15 có giữ liệu liên tiếp sẽ lấy về dòng 11..

 

[vova2209]

Chị này vừa đẹp, lại vừa tốt bụng nhiệt tình giúp đỡ toàn việc hữu ích cho anh chị em khác lâu nay trên diễn đàn rồi!
Giờ bạn mới biết cũng không có gì là lạ!
hihi ^o^

Thật là may mắn! phải tranh thủ nhờ mấy việc đang có ý tưởng.. ^^!

 

[vova2209]

Bạn thử cái này xem

Sub GopDuLieu_QTrinh()
    Dim Dic As Object, Keys As String
    Dim sArr(), dArr(), I As Long
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Range("D3", Range("AW" & Rows.Count).End(xlUp)).Value
ReDim dArr(1 To UBound(sArr, 1), 1 To 1)
For I = 1 To UBound(sArr, 1)
    If sArr(I, 1) = Empty Then Keys = "dong" & I
    If Not Dic.Exists(Keys) Then
        Dic.Add Keys, I
        dArr(I, 1) = sArr(I, 46)
    Else
        If InStrRev(dArr(Dic.Item(Keys), 1), sArr(I, 46)) = 0 Then
            If dArr(Dic.Item(Keys), 1) <> Empty Then
                dArr(Dic.Item(Keys), 1) = dArr(Dic.Item(Keys), 1) & "; " & sArr(I, 46)
            Else
                dArr(Dic.Item(Keys), 1) = sArr(I, 46)
            End If
        End If
    End If
Next I
Range("BB3").Resize(I - 1) = dArr
Set Dic = Nothing
End Sub

Chị ơi! giờ em đang ở sheet22 muốn gọi code tại sheet22 code sẽ chạy ở sheet21 mà không cần phải của sheet21 thì phải làm thế nào ạ

 

[♫ђöล♥ßล†♥†µ♫]

Chị ơi! giờ em đang ở sheet22 muốn gọi code tại sheet22 code sẽ chạy ở sheet21 mà không cần phải của sheet21 thì phải làm thế nào ạ

Hình như là gì gì đó như vầy
Sub ABC()
Dim ...................................................
With Sheets("Gì gì đó")
Một loại dòng lệnh sử lý cái gì gì đó
End With
With Sheets("Cái gì đó")
.Range("Gì Gì")....= ......
End With
End Sub

 

[vova2209]

Hình như lag gì gì đó như vầy
Sub ABC()
Dim ...................................................
With Sheets("Gì gì đó")
Một loại dòng lệnh sử lý cái gì gì đó
End With
With Sheets("Cái gì đó")
.Range("Gì Gì")....= ......
End With
End Sub

Không ghi tên nguyên codeName được à chị
ví dụ như này ý chị có được không nhỉ.. e thử ko được
With Sheets21
xxxxxxxxxx.....
end with

 

[♫ђöล♥ßล†♥†µ♫]

Không ghi tên nguyên codeName được à chị
ví dụ như này ý chị có được không nhỉ.. e thử ko được
With Sheets21
xxxxxxxxxx.....
end with

Thừa mất chứ s rùi. Chỉ vầy thôi
With Sheet21 hoặc là With Sheets("Sheet21")