Lọc dữ liệu trùng và tính tổng

Liên hệ QC
mhieuit

mhieuit

Thành viên hoạt động
Tham gia
3/9/13
Bài viết
163
Được thích
19
Nghề nghiệp
Data controller
Thân chào các anh chị GPE,
Em có 1 vấn đề nho nhỏ sau cần sự trợ giúp từ GPE:
- Anh/Chị dùng công thức hoặc code VBA để lọc dữ liệu và tính tổng qua sheet khác.
- Trong file đính kèm Sheet BTB form là kết quả, dữ liệu nguồn là sheet Report.
-Quá trình em làm bằng thủ công để có kết quả sheet BTB form:
+ Sheet Report: Tại cột M em lọc những location bắt đầu là O copy qua sheet BTB form, copy lần lượt dữ liệu tương ứng các cột P, Q, R qua sheet BTB form, sau đó em dùng chức năng Remove Duplicate để lọc bỏ giá trị trùng của Location (cột B sheet BTB form).
+Sheet BTB form: tại cột F em dùng hàm sumif để tính tổng dựa vào điều kiện Location (cột B sheet BTB form) để lấy giá trị bên sheet Report.

Mong Anh/Chị có thể giúp em vấn đề trên.
Em cám ơn!
 

File đính kèm

  • BTB FORM.xlsx
    549 KB · Đọc: 83
mhieuit đã viết:
Thân chào các anh chị GPE,
Em có 1 vấn đề nho nhỏ sau cần sự trợ giúp từ GPE:
- Anh/Chị dùng công thức hoặc code VBA để lọc dữ liệu và tính tổng qua sheet khác.
- Trong file đính kèm Sheet BTB form là kết quả, dữ liệu nguồn là sheet Report.
-Quá trình em làm bằng thủ công để có kết quả sheet BTB form:
+ Sheet Report: Tại cột M em lọc những location bắt đầu là O copy qua sheet BTB form, copy lần lượt dữ liệu tương ứng các cột P, Q, R qua sheet BTB form, sau đó em dùng chức năng Remove Duplicate để lọc bỏ giá trị trùng của Location (cột B sheet BTB form).
+Sheet BTB form: tại cột F em dùng hàm sumif để tính tổng dựa vào điều kiện Location (cột B sheet BTB form) để lấy giá trị bên sheet Report.

Mong Anh/Chị có thể giúp em vấn đề trên.
Em cám ơn!
Nhấp chuột vào đây để mở rộng...
Sửa tên sheet Bin to Bin gì đó thành "GPE_1" cho gọn rồi chạy code này thử xem sao
[GPECODE=vb]Public Sub GPex()
Dim Dic As Object, sArr1(), sArr2(), dArr(), I As Long, J As Long, K As Long, Tem As String
Set Dic = CreateObject("Scripting.Dictionary")
With Sheets("Report")
sArr1 = .Range(.[M2], .[M65536].End(xlUp)).Resize(, 6).Value2
sArr2 = .Range(.[M2], .[M65536].End(xlUp)).Offset(, 37).Value2
End With
ReDim dArr(1 To UBound(sArr1, 1), 1 To 9)
For I = 1 To UBound(sArr1, 1)
If Left(sArr1(I, 1), 1) = "O" Then
Tem = sArr1(I, 1)
If Not Dic.Exists(Tem) Then
K = K + 1: dArr(K, 1) = K
Dic.Add Tem, K
dArr(K, 2) = sArr1(I, 1)
For J = 3 To 5
dArr(K, J) = sArr1(I, J + 1)
Next J
dArr(K, 6) = sArr2(I, 1)
End If
Else
dArr(Dic.Item(Tem), 6) = dArr(Dic.Item(Tem), 6) + sArr2(I, 1)
End If
Next I
With Sheets("GPE_1")
Application.ScreenUpdating = False
.[A4:I10000].ClearContents
.[A4].Resize(K, 9) = dArr
'.[B4].Resize(K, 8).Sort Key1:=.[B4]
Application.ScreenUpdating = True
End With
Set Dic = Nothing
End Sub[/GPECODE]
------------
Đọc bài của HLMT bên dưới mới "mơ hồ" về bài của mình. Híc!
 
Lần chỉnh sửa cuối:
Dùng tạm ADO nhé:

[GPECODE=sql]Sub TongHop()
Dim cn As Object, rst As Object
Dim strSQL As String
Set cn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
.Open
End With
strSQL = "SELECT [BIN Location],[Product Code],[description],[Lot Number], SUM([Qty Picked Whole]) " & _
"FROM [Report$] WHERE LEFT([BIN Location],1)='O' " & _
"GROUP BY [BIN Location],[Product Code],[description],[Lot Number] "
Set rst = cn.Execute(strSQL)
With Sheet3
.[B4:F100].ClearContents
.[B4].CopyFromRecordset rst
End With
rst.Close: cn.Close
Set rst = Nothing: Set cn = Nothing

End Sub

[/GPECODE]
 
Thank anh Bate và anh Hai Lúa Miền Tây nhiều, em sẽ test và phản hồi sau nhé
 
Code của Hai Lúa Miền Tây run rất OK, còn code cua anh Bate cũng OK nhưng tính tổng chưa được, dù sao em cũng cám ơn 2 anh đã giúp đỡ em rất nhiều, chúc 2 anh ngày làm việc vui vẻ
 
Hai Lúa Miền Tây đã viết:
Dùng tạm ADO nhé:

[GPECODE=sql]Sub TongHop()
Dim cn As Object, rst As Object
Dim strSQL As String
Set cn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
.Open
End With
strSQL = "SELECT [BIN Location],[Product Code],[description],[Lot Number], SUM([Qty Picked Whole]) " & _
"FROM [Report$] WHERE LEFT([BIN Location],1)='O' " & _
"GROUP BY [BIN Location],[Product Code],[description],[Lot Number] "
Set rst = cn.Execute(strSQL)
With Sheet3
.[B4:F100].ClearContents
.[B4].CopyFromRecordset rst
End With
rst.Close: cn.Close
Set rst = Nothing: Set cn = Nothing

End Sub

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

Hi anh Hai Lua Mien Tay,
Code của anh chạy rất ok, nhưng phát sinh 1 lỗi như thế này:
- Cột Lot Number (Cột R) sheet Report dạng số thì code chạy ok, link qua sheet BTB.
- Cột Lot Number (Cột R) sheet Report dạng chuỗi (ví dụ:41014811SC) thì khong link qua sheet BTB được.
anh fix giúp em lỗi này nhé,
Cám ơn anh nhiều.

Em gửi thêm file đính kèm, anh giúp em với
 

File đính kèm

  • BTB FORM.zip
    488.6 KB · Đọc: 31
Chỉnh sửa lần cuối bởi điều hành viên:
mhieuit đã viết:
Hi anh Hai Lua Mien Tay,
Code của anh chạy rất ok, nhưng phát sinh 1 lỗi như thế này:
- Cột Lot Number (Cột R) sheet Report dạng số thì code chạy ok, link qua sheet BTB.
- Cột Lot Number (Cột R) sheet Report dạng chuỗi (ví dụ:41014811SC) thì khong link qua sheet BTB được.
anh fix giúp em lỗi này nhé,
Cám ơn anh nhiều.

Em gửi thêm file đính kèm, anh giúp em với
Nhấp chuột vào đây để mở rộng...
Máy tôi chạy bình thường cho dù nó là số hay chuổi, bởi vì tôi đã có khai báo IMEX=1. Thôi thì bạn chỉnh cột R bên sheet Report thành Text hết rồi lưu lại, chạy lại code thử xem thế nào nhé.
 
mhieuit đã viết:
Thân chào các anh chị GPE,
Em có 1 vấn đề nho nhỏ sau cần sự trợ giúp từ GPE:
- Anh/Chị dùng công thức hoặc code VBA để lọc dữ liệu và tính tổng qua sheet khác.
- Trong file đính kèm Sheet BTB form là kết quả, dữ liệu nguồn là sheet Report.
-Quá trình em làm bằng thủ công để có kết quả sheet BTB form:
+ Sheet Report: Tại cột M em lọc những location bắt đầu là O copy qua sheet BTB form, copy lần lượt dữ liệu tương ứng các cột P, Q, R qua sheet BTB form, sau đó em dùng chức năng Remove Duplicate để lọc bỏ giá trị trùng của Location (cột B sheet BTB form).
+Sheet BTB form: tại cột F em dùng hàm sumif để tính tổng dựa vào điều kiện Location (cột B sheet BTB form) để lấy giá trị bên sheet Report.

Mong Anh/Chị có thể giúp em vấn đề trên.
Em cám ơn!
Nhấp chuột vào đây để mở rộng...

Bạn thử code sau, run cũng phê lắm
PHP: 
Sub cop()
On Error Resume Next
Dim a(), r As Range, c As Range, f
pref = InputBox("Tim theo ky tu dau :" & Chr(10) & "Vi du : O, OD, D, DS...")
Set f = Sheets("Report").Cells.Find("BIN Location")
Set r = Sheets("Report").Columns(f.Column)
ReDim a(1 To r.Rows.Count, 1 To 5)
Set c = r.Find(pref & "*", f)
If Not c Is Nothing Then
FAdd = c.Address
Do
If WorksheetFunction.Match(c, r, 0) = c.Row - r.Row + 1 Then
i = i + 1
a(i, 1) = c
For j = 2 To 4: a(i, j) = c.Offset(, j + 1): Next
a(i, j) = "=SUMIF(Report!M:M," & """" & a(i, 1) & """" & ",Report!AX:AX)"
End If
Set c = r.FindNext(c)
Loop While Not c Is Nothing And c.Address <> FAdd And c.Address <> f.Address
Sheets("BIN to BIN FORM").Activate
Range([A4], [A4].End(xlDown)).Resize(, 6).ClearContents
[B4].Resize(i, 5) = a
[A4] = 1: [A4].AutoFill [A4].Resize(i), Type:=xlFillSeries
Else: MsgBox "No BIN Location matched"
End If
End Sub
 

File đính kèm

  • BTB.rar
    393.5 KB · Đọc: 74
Hai Lúa Miền Tây đã viết:
Máy tôi chạy bình thường cho dù nó là số hay chuổi, bởi vì tôi đã có khai báo IMEX=1. Thôi thì bạn chỉnh cột R bên sheet Report thành Text hết rồi lưu lại, chạy lại code thử xem thế nào nhé.
Nhấp chuột vào đây để mở rộng...
Em đã làm theo hướng dẫn của anh là chỉnh cột R thành dạng text rồi chay code lại, nhưng kết quả không như mong muốn, máy em xài office 2010, anh check lại giúp em với,
cám ơn anh nhiều.
 
mhieuit đã viết:
Em đã làm theo hướng dẫn của anh là chỉnh cột R thành dạng text rồi chay code lại, nhưng kết quả không như mong muốn, máy em xài office 2010, anh check lại giúp em với,
cám ơn anh nhiều.
Nhấp chuột vào đây để mở rộng...

Máy tôi cũng sd 2010 đây, chạy được mà bạn. Các bạn khác test hộ với.
 
nginh đã viết:
Bạn thử code sau, run cũng phê lắm
PHP: 
Sub cop()
On Error Resume Next
Dim a(), r As Range, c As Range, f
pref = InputBox("Tim theo ky tu dau :" & Chr(10) & "Vi du : O, OD, D, DS...")
Set f = Sheets("Report").Cells.Find("BIN Location")
Set r = Sheets("Report").Columns(f.Column)
ReDim a(1 To r.Rows.Count, 1 To 5)
Set c = r.Find(pref & "*", f)
If Not c Is Nothing Then
FAdd = c.Address
Do
If WorksheetFunction.Match(c, r, 0) = c.Row - r.Row + 1 Then
i = i + 1
a(i, 1) = c
For j = 2 To 4: a(i, j) = c.Offset(, j + 1): Next
a(i, j) = "=SUMIF(Report!M:M," & """" & a(i, 1) & """" & ",Report!AX:AX)"
End If
Set c = r.FindNext(c)
Loop While Not c Is Nothing And c.Address <> FAdd And c.Address <> f.Address
Sheets("BIN to BIN FORM").Activate
Range([A4], [A4].End(xlDown)).Resize(, 6).ClearContents
[B4].Resize(i, 5) = a
[A4] = 1: [A4].AutoFill [A4].Resize(i), Type:=xlFillSeries
Else: MsgBox "No BIN Location matched"
End If
End Sub
Nhấp chuột vào đây để mở rộng...
Cám ơn anh nhiều,
Anh giúp em set code công thức tại cột G4 sheet BTB Form luôn nhé:
=IF(F4="","",IF(F4=0,SUMIF(Report!M:M,BTB_FORM!B4,Report!AY:AY)/VLOOKUP(BTB_FORM!C4,Data!A:F,5,0),""))
 
nginh đã viết:
Bạn thử code sau, run cũng phê lắm
PHP: 
Sub cop()
On Error Resume Next
Dim a(), r As Range, c As Range, f
pref = InputBox("Tim theo ky tu dau :" & Chr(10) & "Vi du : O, OD, D, DS...")
Set f = Sheets("Report").Cells.Find("BIN Location")
Set r = Sheets("Report").Columns(f.Column)
ReDim a(1 To r.Rows.Count, 1 To 5)
Set c = r.Find(pref & "*", f)
If Not c Is Nothing Then
FAdd = c.Address
Do
If WorksheetFunction.Match(c, r, 0) = c.Row - r.Row + 1 Then
i = i + 1
a(i, 1) = c
For j = 2 To 4: a(i, j) = c.Offset(, j + 1): Next
a(i, j) = "=SUMIF(Report!M:M," & """" & a(i, 1) & """" & ",Report!AX:AX)"
End If
Set c = r.FindNext(c)
Loop While Not c Is Nothing And c.Address <> FAdd And c.Address <> f.Address
Sheets("BIN to BIN FORM").Activate
Range([A4], [A4].End(xlDown)).Resize(, 6).ClearContents
[B4].Resize(i, 5) = a
[A4] = 1: [A4].AutoFill [A4].Resize(i), Type:=xlFillSeries
Else: MsgBox "No BIN Location matched"
End If
End Sub
Nhấp chuột vào đây để mở rộng...
Cám ơn anh rất nhiều
em đang test, có gì em sẽ phản hồi sau nhé
 
mhieuit đã viết:
Cám ơn anh nhiều,
Anh giúp em set code công thức tại cột G4 sheet BTB Form luôn nhé:
=IF(F4="","",IF(F4=0,SUMIF(Report!M:M,BTB_FORM!B4,Report!AY:AY)/VLOOKUP(BTB_FORM!C4,Data!A:F,5,0),""))
Nhấp chuột vào đây để mở rộng...
Bạn thử lại code sau
PHP: 
Sub cop()
On Error Resume Next
Dim a(), r As Range, c As Range, f
pref = InputBox("Tim theo ky tu dau :" & Chr(10) & "Vi du : O, OD, D, SD...")
Set f = Sheets("Report").Cells.Find("BIN Location")
Set r = Sheets("Report").Columns(f.Column)
ReDim a(1 To r.Rows.Count, 1 To 6)
Set c = r.Find(pref & "*", f)
If Not c Is Nothing Then
FAdd = c.Address
Do
If WorksheetFunction.Match(c, r, 0) = c.Row Then
i = i + 1
a(i, 1) = c
For j = 2 To 4: a(i, j) = c.Offset(, j + 1): Next
a(i, j) = "=SUMIF(Report!M:M," & "B" & (i + 3) & ",Report!AX:AX)"
a(i, j + 1) = "=IF(" & "F" & (i + 3) & "="""","""",IF(" & "F" & (i + 3) & "=0, SUMIF(Report!M:M," _
& "B" & (i + 3) & ",Report!AY:AY)/VLOOKUP(" & "C" & (i + 3) & ",Data!A:F,5,0),""""))"
End If
Set c = r.FindNext(c)
Loop While Not c Is Nothing And c.Address <> FAdd And c.Address <> f.Address
Sheets("BIN to BIN FORM").Activate
Range([A4], [A4].End(xlDown)).Resize(, 7).ClearContents
[B4].Resize(i, 6) = a
[A4] = 1: [A4].AutoFill [A4].Resize(i), Type:=xlFillSeries
Else: MsgBox "No BIN Location matched"
End If
End Sub
Lưu ý đặt tên sheet như trong code
 
nginh đã viết:
Bạn thử lại code sau
PHP: 
Sub cop()
On Error Resume Next
Dim a(), r As Range, c As Range, f
pref = InputBox("Tim theo ky tu dau :" & Chr(10) & "Vi du : O, OD, D, SD...")
Set f = Sheets("Report").Cells.Find("BIN Location")
Set r = Sheets("Report").Columns(f.Column)
ReDim a(1 To r.Rows.Count, 1 To 6)
Set c = r.Find(pref & "*", f)
If Not c Is Nothing Then
FAdd = c.Address
Do
If WorksheetFunction.Match(c, r, 0) = c.Row Then
i = i + 1
a(i, 1) = c
For j = 2 To 4: a(i, j) = c.Offset(, j + 1): Next
a(i, j) = "=SUMIF(Report!M:M," & "B" & (i + 3) & ",Report!AX:AX)"
a(i, j + 1) = "=IF(" & "F" & (i + 3) & "="""","""",IF(" & "F" & (i + 3) & "=0, SUMIF(Report!M:M," _
& "B" & (i + 3) & ",Report!AY:AY)/VLOOKUP(" & "C" & (i + 3) & ",Data!A:F,5,0),""""))"
End If
Set c = r.FindNext(c)
Loop While Not c Is Nothing And c.Address <> FAdd And c.Address <> f.Address
Sheets("BIN to BIN FORM").Activate
Range([A4], [A4].End(xlDown)).Resize(, 7).ClearContents
[B4].Resize(i, 6) = a
[A4] = 1: [A4].AutoFill [A4].Resize(i), Type:=xlFillSeries
Else: MsgBox "No BIN Location matched"
End If
End Sub
Lưu ý đặt tên sheet như trong code
Nhấp chuột vào đây để mở rộng...

Cám ơn anh rất nhiều, Trong đoạn code "=IF(" & "F" & (i + 3) & "="""","""",IF(" & "F" & (i + 3) & "=0, SUMIF(Report!M:M," _
& "B" & (i + 3) & ",Report!AY:AY)/VLOOKUP(" & "C" & (i + 3) & ",Data!A:F,5,0),""""))", chổ "B" & (i + 3) em muốn thay bằng B:B và chổ "C" & (i + 3) thay bằng C:C, anh giúp em nhé
 
mhieuit đã viết:
Cám ơn anh rất nhiều, Trong đoạn code "=IF(" & "F" & (i + 3) & "="""","""",IF(" & "F" & (i + 3) & "=0, SUMIF(Report!M:M," _
& "B" & (i + 3) & ",Report!AY:AY)/VLOOKUP(" & "C" & (i + 3) & ",Data!A:F,5,0),""""))", chổ "B" & (i + 3) em muốn thay bằng B:B và chổ "C" & (i + 3) thay bằng C:C, anh giúp em nhé
Nhấp chuột vào đây để mở rộng...

Thi bạn cứ thay "B" & (i + 3) thành "B:B"
và "C" & (i + 3)thành "C:C"
 
nginh đã viết:
Bạn thử code sau, run cũng phê lắm
PHP: 
Sub cop()
On Error Resume Next
Dim a(), r As Range, c As Range, f
pref = InputBox("Tim theo ky tu dau :" & Chr(10) & "Vi du : O, OD, D, DS...")
Set f = Sheets("Report").Cells.Find("BIN Location")
Set r = Sheets("Report").Columns(f.Column)
ReDim a(1 To r.Rows.Count, 1 To 5)
Set c = r.Find(pref & "*", f)
If Not c Is Nothing Then
FAdd = c.Address
Do
If WorksheetFunction.Match(c, r, 0) = c.Row - r.Row + 1 Then
i = i + 1
a(i, 1) = c
For j = 2 To 4: a(i, j) = c.Offset(, j + 1): Next
a(i, j) = "=SUMIF(Report!M:M," & """" & a(i, 1) & """" & ",Report!AX:AX)"
End If
Set c = r.FindNext(c)
Loop While Not c Is Nothing And c.Address <> FAdd And c.Address <> f.Address
Sheets("BIN to BIN FORM").Activate
Range([A4], [A4].End(xlDown)).Resize(, 6).ClearContents
[B4].Resize(i, 5) = a
[A4] = 1: [A4].AutoFill [A4].Resize(i), Type:=xlFillSeries
Else: MsgBox "No BIN Location matched"
End If
End Sub
Nhấp chuột vào đây để mở rộng...

Bác Nghinh dạo này chắc ko còn onl trên GPE nữa nên nhờ bác nào chỉnh giúp em code trên về dạng lọc kiểu không điều kiện, sắp xếp đơn thuần theo alphabe trong Sheet Bin to Bin với ah.
Em đang sửa code này để áp dụng nhưng còn đoạn này nữa chưa biết làm thế nào.

Cảm ơn các bác!
 
Ko bác nào xem giúp em với ah !$@!!!$@!!!$@!!
 
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

befaint
[ Python và ứng dụng ] Siêu siêu phẩm đồng bộ giữa Excel và Google Sheets theo thời gian thực
    • Thích
    • Yêu thích
    • Không thích
2
Trả lời
25
Đọc
689
befaint
befaint
H
Làm lịch thi đấu bóng đá loại trực tiếp
    • Cười
Trả lời
2
Đọc
61
VetMini
V
D
  • Question
Sau khi chạy code thì trở về vị trí ban đầu
    • Thích
Trả lời
9
Đọc
145
VetMini
V
tuanthanhhk1
Nhờ giúp đỡ viết ví dụ lấy dữ liệu có điều kiện
Trả lời
6
Đọc
134
VetMini
V
befaint
Chia sẻ tâm tư, xả nỗi lòng
    • Thích
35 36 37
Trả lời
739
Đọc
43K
VetMini
V
Linh101023
Vấn đề với hàm round
Trả lời
6
Đọc
91
VetMini
V
B
Căn chỉnh drop-down list trong combobox
Trả lời
7
Đọc
99
ptm0412
ptm0412
T
  • Đã giải quyết
viết code trong excel để sắp xếp theo yêu cầu sau đó tách sheet
2
Trả lời
26
Đọc
374
thufpts
T
D
NHỜ ANH CHỊ EM GIÚP MÌNH LỌC TRÙNG
Trả lời
3
Đọc
89
dovansangnh
D
N
  • Question
Một ý tưởng viết macro VBA tương tác với Google Drive từ Excel
    • Thích
Trả lời
13
Đọc
2K
phuongnam366377
phuongnam366377
D
Phân công và sắp xếp lịch trực
2
Trả lời
22
Đọc
509
HUONGHCKT
H
quangminhici
Tặng Addin Word xuất Mail Merge có chức năng cắt ra nhiều file và gửi mail.
    • Thích
Trả lời
13
Đọc
2K
quangminhici
quangminhici
Nguyễn Duy Tuân
Phiên bản mới Add-in A-Tools v10 (2024)
    • Thích
2
Trả lời
28
Đọc
1K
huhumalu
H
huuthang_bd
Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro
    • Thích
    • Yêu thích
    • Chấp nhận
Trả lời
16
Đọc
7K
Phan Thanh Quang
Phan Thanh Quang
J
  • Đã khóa
  • Question
Cần tìm cá nhân thật giỏi thiết kế vba- excel theo yêu cầu.
Trả lời
8
Đọc
150
ongke0711
ongke0711
X
Khắc Phục Tập tin bị lây nhiễm virus VBA
    • Thích
Trả lời
8
Đọc
7K
Phan Thanh Quang
Phan Thanh Quang
Kiều Mạnh
  • Đã khóa
Lấy dữ liệu cổ phiếu từ Website Cafef.vn về Excel
    • Thích
4 5 6
Trả lời
111
Đọc
4K
ptm0412
ptm0412
Q
  • Question
lọc lấy text trong cột
Trả lời
6
Đọc
128
DeTong
D
U
VLOOKUP nhiều cột
    • Chấp nhận
Trả lời
18
Đọc
637
Phan Thế Hiệp
Phan Thế Hiệp
Bạn Đoàn
Em Chào AC!. Em nhờ AC tạo UserForm nhập dữ giúp em với ạ.
    • Buồn
Trả lời
3
Đọc
128
Bạn Đoàn
Bạn Đoàn
Xem thêm…

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