Code VBA tách dữ liệu theo thể tích và tên mặt hàng

Liên hệ QC
Tôi tuân thủ nội quy khi đăng bài
Có
V

Văn Toàn 1996

Thành viên hoạt động
Tham gia
5/6/23
Bài viết
102
Được thích
22
em chào tất cả mọi người GPE. em có 1 file dữ liệu thô có vùng dữ liệu B4:F1000 , tên mặt hàng của em có 2 loại ( tên có kích thước và không có kích thước ). em mong muốn code chạy tách được ra như vùng H4:I15 ( như hình mô tả ). Nếu mặt hàng nào có kích thước mà trùng tên thì tách ra và cộng dồn lại cột tổng, còn mặt hàng nào không có kích thước vẫn giử nguyên. Em xin chân thành cảm ơn

1693326577980.pngÁCH
 

File đính kèm

  • the tich.xlsm
    11.6 KB · Đọc: 12
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Văn Toàn 1996 đã viết:
em chào tất cả mọi người GPE. em có 1 file dữ liệu thô có vùng dữ liệu B4:F1000 , tên mặt hàng của em có 2 loại ( tên có kích thước và không có kích thước ). em mong muốn code chạy tách được ra như vùng H4:I15 ( như hình mô tả ). Nếu mặt hàng nào có kích thước mà trùng tên thì tách ra và cộng dồn lại cột tổng, còn mặt hàng nào không có kích thước vẫn giử nguyên. Em xin chân thành cảm ơn

View attachment 294362ÁCH
Nhấp chuột vào đây để mở rộng...
Trong khi chờ đợi các giải pháp khác, hãy thử code này xem sao.
Mã: 
Option Explicit

Sub VanToan1996()
Dim i&, j&, lr&, R&, n&, m&
Dim Arr(), KQ(), S, Tong()
Dim Dic As Object, Key
Dim Ws As Worksheet
Set Ws = Sheet1
lr = Ws.Cells(10000, "B").End(3).Row
Arr = Ws.Range("B4:F" & lr).Value
R = UBound(Arr)
ReDim KQ(1 To R * 2, 1 To 2): ReDim Tong(1 To R * 2)
Set Dic = CreateObject("Scripting.Dictionary")
For i = 1 To R
    Key = Arr(i, 1)
    If Not Dic.exists(Key) Then         Dic(Key) = i    Else        Dic(Key) = Dic(Key) & "," & i
Next i
For Each Key In Dic.Keys
    j = j + 1:    KQ(j, 1) = Key
    S = Split(Dic(Key), ",")
    If UBound(S) > 0 Then
        n = j
        For m = 0 To UBound(S)
            n = n + 1
            KQ(n, 1) = "  -" & Arr(S(m), 2) & "x" & Arr(S(m), 3) & "x" & Arr(S(m), 4) & "  =" & Arr(S(m), 5)
            KQ(j, 2) = KQ(j, 2) + Arr(S(m), 5)
        Next m
        j = n
    ElseIf UBound(S) = 0 Then
        If Arr(S(0), 2) <> Empty Or Arr(S(0), 3) <> Empty Or Arr(S(0), 4) <> Empty Then
            n = j + 1
            KQ(n, 1) = "  -" & Arr(S(0), 2) & "x" & Arr(S(0), 3) & "x" & Arr(S(0), 4) & "  =" & Arr(S(0), 5)
            KQ(j, 2) = KQ(j, 2) + Arr(S(0), 5)
        Else
            KQ(j, 2) = Arr(S(0), 5):            n = j
        End If
        j = n
    End If
  
Next
If j Then
    Ws.Range("K4").Resize(10000, 2).ClearContents
    Ws.Range("K4").Resize(j, 2) = KQ
End If
Set Dic = Nothing
End Sub
 
Upvote 0
HUONGHCKT đã viết:
Trong khi chờ đợi các giải pháp khác, hãy thử code này xem sao.
Mã: 
Option Explicit

Sub VanToan1996()
Dim i&, j&, lr&, R&, n&, m&
Dim Arr(), KQ(), S, Tong()
Dim Dic As Object, Key
Dim Ws As Worksheet
Set Ws = Sheet1
lr = Ws.Cells(10000, "B").End(3).Row
Arr = Ws.Range("B4:F" & lr).Value
R = UBound(Arr)
ReDim KQ(1 To R * 2, 1 To 2): ReDim Tong(1 To R * 2)
Set Dic = CreateObject("Scripting.Dictionary")
For i = 1 To R
    Key = Arr(i, 1)
    If Not Dic.exists(Key) Then         Dic(Key) = i    Else        Dic(Key) = Dic(Key) & "," & i
Next i
For Each Key In Dic.Keys
    j = j + 1:    KQ(j, 1) = Key
    S = Split(Dic(Key), ",")
    If UBound(S) > 0 Then
        n = j
        For m = 0 To UBound(S)
            n = n + 1
            KQ(n, 1) = "  -" & Arr(S(m), 2) & "x" & Arr(S(m), 3) & "x" & Arr(S(m), 4) & "  =" & Arr(S(m), 5)
            KQ(j, 2) = KQ(j, 2) + Arr(S(m), 5)
        Next m
        j = n
    ElseIf UBound(S) = 0 Then
        If Arr(S(0), 2) <> Empty Or Arr(S(0), 3) <> Empty Or Arr(S(0), 4) <> Empty Then
            n = j + 1
            KQ(n, 1) = "  -" & Arr(S(0), 2) & "x" & Arr(S(0), 3) & "x" & Arr(S(0), 4) & "  =" & Arr(S(0), 5)
            KQ(j, 2) = KQ(j, 2) + Arr(S(0), 5)
        Else
            KQ(j, 2) = Arr(S(0), 5):            n = j
        End If
        j = n
    End If
 
Next
If j Then
    Ws.Range("K4").Resize(10000, 2).ClearContents
    Ws.Range("K4").Resize(j, 2) = KQ
End If
Set Dic = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Dữ liệu sắp sẵn thế này đâu cần phải dùng dic nhỉ?!
 
Upvote 0
HUONGHCKT đã viết:
Trong khi chờ đợi các giải pháp khác, hãy thử code này xem sao.
Mã: 
Option Explicit

Sub VanToan1996()
Dim i&, j&, lr&, R&, n&, m&
Dim Arr(), KQ(), S, Tong()
Dim Dic As Object, Key
Dim Ws As Worksheet
Set Ws = Sheet1
lr = Ws.Cells(10000, "B").End(3).Row
Arr = Ws.Range("B4:F" & lr).Value
R = UBound(Arr)
ReDim KQ(1 To R * 2, 1 To 2): ReDim Tong(1 To R * 2)
Set Dic = CreateObject("Scripting.Dictionary")
For i = 1 To R
    Key = Arr(i, 1)
    If Not Dic.exists(Key) Then         Dic(Key) = i    Else        Dic(Key) = Dic(Key) & "," & i
Next i
For Each Key In Dic.Keys
    j = j + 1:    KQ(j, 1) = Key
    S = Split(Dic(Key), ",")
    If UBound(S) > 0 Then
        n = j
        For m = 0 To UBound(S)
            n = n + 1
            KQ(n, 1) = "  -" & Arr(S(m), 2) & "x" & Arr(S(m), 3) & "x" & Arr(S(m), 4) & "  =" & Arr(S(m), 5)
            KQ(j, 2) = KQ(j, 2) + Arr(S(m), 5)
        Next m
        j = n
    ElseIf UBound(S) = 0 Then
        If Arr(S(0), 2) <> Empty Or Arr(S(0), 3) <> Empty Or Arr(S(0), 4) <> Empty Then
            n = j + 1
            KQ(n, 1) = "  -" & Arr(S(0), 2) & "x" & Arr(S(0), 3) & "x" & Arr(S(0), 4) & "  =" & Arr(S(0), 5)
            KQ(j, 2) = KQ(j, 2) + Arr(S(0), 5)
        Else
            KQ(j, 2) = Arr(S(0), 5):            n = j
        End If
        j = n
    End If
 
Next
If j Then
    Ws.Range("K4").Resize(10000, 2).ClearContents
    Ws.Range("K4").Resize(j, 2) = KQ
End If
Set Dic = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn đã hỗ trợ. Bạn có thể sửa lại giúp mình nếu trường hợp 2 tên giống nhau mà không có kích thước thì vẫn giữ nguyên như củ. Không cần tách ( Ví dụ như dòng Trái cây bên dưới )

1693367688259.png
 
Upvote 0
Như vậy có được không?

1693368634064.png

G4 =IF(C4="","",C4&"x"&D4&"x"&E4&" = "&F4)
 
Upvote 0
Maika8008 đã viết:
Dữ liệu sắp sẵn thế này đâu cần phải dùng dic nhỉ?!
Nhấp chuột vào đây để mở rộng...
Cảm ơn đã xem bài.
Hy vọng được xem code xịn.
Bài đã được tự động gộp:

Văn Toàn 1996 đã viết:
Cảm ơn bạn đã hỗ trợ. Bạn có thể sửa lại giúp mình nếu trường hợp 2 tên giống nhau mà không có kích thước thì vẫn giữ nguyên như củ. Không cần tách ( Ví dụ như dòng Trái cây bên dưới )

View attachment 294369
Nhấp chuột vào đây để mở rộng...
Thay bằng code này:
Mã: 
Option Explicit

Sub VanToan1996()
Dim i&, j&, lr&, R&, n&, m&
Dim Arr(), KQ(), S, Tong()
Dim Dic As Object, Key
Dim Ws As Worksheet
Set Ws = Sheet1
lr = Ws.Cells(10000, "B").End(3).Row
Arr = Ws.Range("B4:F" & lr).Value
R = UBound(Arr)
ReDim KQ(1 To R * 2, 1 To 2): ReDim Tong(1 To R * 2)
Set Dic = CreateObject("Scripting.Dictionary")
For i = 1 To R
    Key = Arr(i, 1)
    If Not Dic.exists(Key) Then Dic(Key) = i Else Dic(Key) = Dic(Key) & "," & i
Next i
For Each Key In Dic.Keys
    j = j + 1:     KQ(j, 1) = Key
    S = Split(Dic(Key), ",")
    If UBound(S) > 0 Then
        n = j
        For m = 0 To UBound(S)
        If Arr(S(m), 2) <> Empty Or Arr(S(m), 3) <> Empty Or Arr(S(m), 4) <> Empty Then
            n = n + 1
            KQ(n, 1) = "  -" & Arr(S(m), 2) & "x" & Arr(S(m), 3) & "x" & Arr(S(m), 4) & "  =" & Arr(S(m), 5)
        End If
            KQ(j, 2) = KQ(j, 2) + Arr(S(m), 5)
        Next m
        j = n
    ElseIf UBound(S) = 0 Then
        If Arr(S(0), 2) <> Empty Or Arr(S(0), 3) <> Empty Or Arr(S(0), 4) <> Empty Then
            n = j + 1
            KQ(n, 1) = "  -" & Arr(S(0), 2) & "x" & Arr(S(0), 3) & "x" & Arr(S(0), 4) & "  =" & Arr(S(0), 5)
            KQ(j, 2) = KQ(j, 2) + Arr(S(0), 5)
        Else
            KQ(j, 2) = Arr(S(0), 5):            n = j
        End If
        j = n
    End If
  
Next
If j Then
    Ws.Range("K4").Resize(10000, 2).ClearContents
    Ws.Range("K4").Resize(j, 2) = KQ
End If
Set Dic = Nothing
End Sub
 
Upvote 0
HUONGHCKT đã viết:
Cảm ơn đã xem bài.
Hy vọng được xem code xịn.
Bài đã được tự động gộp:


Thay bằng code này:
Mã: 
Option Explicit

Sub VanToan1996()
Dim i&, j&, lr&, R&, n&, m&
Dim Arr(), KQ(), S, Tong()
Dim Dic As Object, Key
Dim Ws As Worksheet
Set Ws = Sheet1
lr = Ws.Cells(10000, "B").End(3).Row
Arr = Ws.Range("B4:F" & lr).Value
R = UBound(Arr)
ReDim KQ(1 To R * 2, 1 To 2): ReDim Tong(1 To R * 2)
Set Dic = CreateObject("Scripting.Dictionary")
For i = 1 To R
    Key = Arr(i, 1)
    If Not Dic.exists(Key) Then Dic(Key) = i Else Dic(Key) = Dic(Key) & "," & i
Next i
For Each Key In Dic.Keys
    j = j + 1:     KQ(j, 1) = Key
    S = Split(Dic(Key), ",")
    If UBound(S) > 0 Then
        n = j
        For m = 0 To UBound(S)
        If Arr(S(m), 2) <> Empty Or Arr(S(m), 3) <> Empty Or Arr(S(m), 4) <> Empty Then
            n = n + 1
            KQ(n, 1) = "  -" & Arr(S(m), 2) & "x" & Arr(S(m), 3) & "x" & Arr(S(m), 4) & "  =" & Arr(S(m), 5)
        End If
            KQ(j, 2) = KQ(j, 2) + Arr(S(m), 5)
        Next m
        j = n
    ElseIf UBound(S) = 0 Then
        If Arr(S(0), 2) <> Empty Or Arr(S(0), 3) <> Empty Or Arr(S(0), 4) <> Empty Then
            n = j + 1
            KQ(n, 1) = "  -" & Arr(S(0), 2) & "x" & Arr(S(0), 3) & "x" & Arr(S(0), 4) & "  =" & Arr(S(0), 5)
            KQ(j, 2) = KQ(j, 2) + Arr(S(0), 5)
        Else
            KQ(j, 2) = Arr(S(0), 5):            n = j
        End If
        j = n
    End If
 
Next
If j Then
    Ws.Range("K4").Resize(10000, 2).ClearContents
    Ws.Range("K4").Resize(j, 2) = KQ
End If
Set Dic = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
cảm ơn bạn. Ý mình là nếu dòng nào không có kích thước thì vẫn giữ nguyên không cần Gom lại. Ví dụ dòng Trái cây nó bao nhiêu dòng thì giữ lại nguyên thủy không cần làm gì cả. Nhờ bạn sửa lại như vậy là Đúng ý mình luôn. rất cảm ơn bạn đã nhiệt tình hỗ trợ

Kết Quả Code Hiện tại:
1693372720711.png

Kết Quả Mình mong muốn:
1693372748120.png
Bài đã được tự động gộp:

ptm0412 đã viết:
Như vậy có được không?

View attachment 294370

G4 =IF(C4="","",C4&"x"&D4&"x"&E4&" = "&F4)
Nhấp chuột vào đây để mở rộng...
dạ cảm ơn a. em cần dữ liệu Thô để em xử lý qua công đoạn khác, nên cần Code ra dữ liệu thô
 
Upvote 0
Upvote 0
HUONGHCKT đã viết:
Cảm ơn đã xem bài.
Hy vọng được xem code xịn.
Bài đã được tự động gộp:


Thay bằng code này:
Mã: 
Option Explicit

Sub VanToan1996()
Dim i&, j&, lr&, R&, n&, m&
Dim Arr(), KQ(), S, Tong()
Dim Dic As Object, Key
Dim Ws As Worksheet
Set Ws = Sheet1
lr = Ws.Cells(10000, "B").End(3).Row
Arr = Ws.Range("B4:F" & lr).Value
R = UBound(Arr)
ReDim KQ(1 To R * 2, 1 To 2): ReDim Tong(1 To R * 2)
Set Dic = CreateObject("Scripting.Dictionary")
For i = 1 To R
    Key = Arr(i, 1)
    If Not Dic.exists(Key) Then Dic(Key) = i Else Dic(Key) = Dic(Key) & "," & i
Next i
For Each Key In Dic.Keys
    j = j + 1:     KQ(j, 1) = Key
    S = Split(Dic(Key), ",")
    If UBound(S) > 0 Then
        n = j
        For m = 0 To UBound(S)
        If Arr(S(m), 2) <> Empty Or Arr(S(m), 3) <> Empty Or Arr(S(m), 4) <> Empty Then
            n = n + 1
            KQ(n, 1) = "  -" & Arr(S(m), 2) & "x" & Arr(S(m), 3) & "x" & Arr(S(m), 4) & "  =" & Arr(S(m), 5)
        End If
            KQ(j, 2) = KQ(j, 2) + Arr(S(m), 5)
        Next m
        j = n
    ElseIf UBound(S) = 0 Then
        If Arr(S(0), 2) <> Empty Or Arr(S(0), 3) <> Empty Or Arr(S(0), 4) <> Empty Then
            n = j + 1
            KQ(n, 1) = "  -" & Arr(S(0), 2) & "x" & Arr(S(0), 3) & "x" & Arr(S(0), 4) & "  =" & Arr(S(0), 5)
            KQ(j, 2) = KQ(j, 2) + Arr(S(0), 5)
        Else
            KQ(j, 2) = Arr(S(0), 5):            n = j
        End If
        j = n
    End If
 
Next
If j Then
    Ws.Range("K4").Resize(10000, 2).ClearContents
    Ws.Range("K4").Resize(j, 2) = KQ
End If
Set Dic = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Bạn thử code không dùng dic sẽ gọn hơn
 
Upvote 0
ptm0412 đã viết:
Pivot table xong copy là ra dữ liệu thô. Hoaa85c dùng chính pivot table làm dữ liệu thô.
Nhấp chuột vào đây để mở rộng...
Tạo cột calculated field lúc dựng Data Table. Pivot Table làm êm ái.
Nhưng kiểu trả lời của thớt có lẽ là dân quen code, không hề đối diện với các công cụ trung gian.
 
Upvote 0
VetMini đã viết:
Tạo cột calculated field lúc dựng Data Table. Pivot Table làm êm ái.
Nhưng kiểu trả lời của thớt có lẽ là dân quen code, không hề đối diện với các công cụ trung gian.
Nhấp chuột vào đây để mở rộng...
Lại còn kiểu lấy kết quả là dữ liệu thô. Tôi không hiểu dữ liệu có dòng Sub total mà dùng làm dữ liệu thô kiểu gì.
 
Upvote 0
Xài đỡ cái này:
PHP: 
Option Explicit
Sub gop()
Dim lr&, k&, ce As Range, sum&, pos&, count&, res(1 To 1000, 1 To 2)
lr = Cells(Rows.count, "B").End(xlUp).Row
For Each ce In Range("B4:B" & lr)
    count = WorksheetFunction.CountA(ce.Resize(1, 4))
    If count = 1 Or ce.Offset(-1, 0) <> ce Then
        sum = 0: k = k + 1: pos = k: res(k, 1) = ce: res(k, 2) = ce.Offset(0, 4)
        If count = 1 Then GoTo z
    End If
    k = k + 1: res(k, 1) = " -" & ce.Offset(0, 1) & "x" & ce.Offset(0, 2) & _
         "x" & ce.Offset(0, 3) & " = " & ce.Offset(0, 4)
    sum = sum + ce.Offset(0, 4): res(pos, 2) = sum
z:
Next
Range("H4:I10000").ClearContents
Range("H4").Resize(k, 2).Value = res
End Sub
 

File đính kèm

  • the tich.xlsm
    23.4 KB · Đọc: 8
Upvote 0
Văn Toàn 1996 đã viết:
cảm ơn bạn. Ý mình là nếu dòng nào không có kích thước thì vẫn giữ nguyên không cần Gom lại. Ví dụ dòng Trái cây nó bao nhiêu dòng thì giữ lại nguyên thủy không cần làm gì cả. Nhờ bạn sửa lại như vậy là Đúng ý mình luôn. rất cảm ơn bạn đã nhiệt tình hỗ trợ

Kết Quả Code Hiện tại:
View attachment 294376

Kết Quả Mình mong muốn:
View attachment 294377
Bài đã được tự động gộp:


dạ cảm ơn a. em cần dữ liệu Thô để em xử lý qua công đoạn khác, nên cần Code ra dữ liệu thô
Nhấp chuột vào đây để mở rộng...
Chỉnh lại:
Mã: 
Sub VanToan1996()
Dim i&, j&, lr&, R&, n&, m&
Dim Arr(), KQ(), S, Tong()
Dim Dic As Object, Key
Dim Ws As Worksheet
Set Ws = Sheet1
lr = Ws.Cells(10000, "B").End(3).Row
Arr = Ws.Range("B4:F" & lr).Value
R = UBound(Arr)
ReDim KQ(1 To R * 2, 1 To 2): ReDim Tong(1 To R * 2)
Set Dic = CreateObject("Scripting.Dictionary")
For i = 1 To R
    Key = Arr(i, 1)
    If Not Dic.exists(Key) Then Dic(Key) = i Else Dic(Key) = Dic(Key) & "," & i
Next i
For Each Key In Dic.Keys
    j = j + 1:     KQ(j, 1) = Key
    S = Split(Dic(Key), ",")
    If UBound(S) > 0 Then
        n = j
        For m = 0 To UBound(S)
        If Arr(S(m), 2) <> Empty Or Arr(S(m), 3) <> Empty Or Arr(S(m), 4) <> Empty Then
            n = n + 1
            KQ(n, 1) = "  -" & Arr(S(m), 2) & "x" & Arr(S(m), 3) & "x" & Arr(S(m), 4) & "  =" & Arr(S(m), 5)
        Else
            n = n + 1
            KQ(n, 1) = Arr(S(m), 5)
        End If
            KQ(j, 2) = KQ(j, 2) + Arr(S(m), 5)
        Next m
        j = n
    ElseIf UBound(S) = 0 Then
        If Arr(S(0), 2) <> Empty Or Arr(S(0), 3) <> Empty Or Arr(S(0), 4) <> Empty Then
            n = j + 1
            KQ(n, 1) = "  -" & Arr(S(0), 2) & "x" & Arr(S(0), 3) & "x" & Arr(S(0), 4) & "  =" & Arr(S(0), 5)
            KQ(j, 2) = KQ(j, 2) + Arr(S(0), 5)
        Else
            KQ(j, 2) = Arr(S(0), 5):            n = j
        End If
        j = n
    End If
  
Next
If j Then
    Ws.Range("K4").Resize(10000, 2).ClearContents
    Ws.Range("K4").Resize(j, 2) = KQ
End If
Set Dic = Nothing
End Sub
 
Upvote 0
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

S
Hỏi cách nhập dữ liệu vào 1 ô trả kết quả ở 1 ô khác có công thức
Trả lời
9
Đọc
156
Hoàng Tuấn 868
H
pingping2288
Lỗi cứ lần mở lại file excel là font chữ và định dạng ô lại thay đổi
Trả lời
14
Đọc
125
Hoàng Tuấn 868
H
vova2209
  • Question
Tìm địa chỉ ô với 2đk và chuyển thành links
Trả lời
14
Đọc
231
vova2209
vova2209
H
  • Question
Xóa toàn bộ các dòng giống nhau ở 1 cột
    • Cười
Trả lời
12
Đọc
97
hadoan-pap
H
ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
7 8 9
Trả lời
164
Đọc
8K
chstbcaolanh
C
T
Đánh Số Thứ Tự Loại Bỏ Trùng
Trả lời
1
Đọc
32
bebo021999
B
H
Có thể mở file Excel mới sẽ Zoom mặc định 150% không?
Trả lời
4
Đọc
167
VetMini
V
O
  • Question
Tìm số thứ tự của sheet trong workbook có nhiều sheets
Trả lời
11
Đọc
3K
VetMini
V
Manhhung90
Liệt kê các ngày cộng dồn mong muốn vào 1 ô. Nhờ mọi người giúp mình ạ.
2 3 4
Trả lời
62
Đọc
748
VetMini
V
C
Hàm đánh số thứ tự như không đánh dữ liệu trùng
Trả lời
7
Đọc
8K
Trang Tuyet Ngoc Nhi
T
Hai Lúa Miền Tây
  • Question
Hàm chuyển dữ liệu từ cột sang dòng (Hàm melt + wide_to_long của Python trong Excel)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
9
Đọc
470
tranhungdao12a3
T
GPE-Trợ Lý
Đăng ký tham dự hội thảo tại Hà Nội: Power Query - Công cụ quản lý dữ liệu
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
4
Đọc
469
PhanTuHuong
PhanTuHuong
tvcneo
  • Question
Nhờ Anh Chị Em giúp mình cách để tạo macro giống như trong file này
Trả lời
17
Đọc
232
huuthang_bd
huuthang_bd
T
Có phải lỗi Excel?
Trả lời
8
Đọc
9K
dinhthang8709
D
T
Công thức lấy dữ liệu
Trả lời
3
Đọc
124
HUONGHCKT
H
S
  • Question
Nhờ anh chị giúp em hàm ngẫu nhiên với tổng là 1 số
Trả lời
6
Đọc
150
SA_DQ
SA_DQ
L
Tự động nhảy số tham chiếu khi sang sheet mới
Trả lời
5
Đọc
5K
Romantic92
R
TieuLong2708
Danh sách lịch cắt người trực
Trả lời
0
Đọc
38
TieuLong2708
TieuLong2708
C
  • Question
Xin giúp đỡ Code kiểm tra và copy dữ liệu từ sheet 1 sang sheet 2
2
Trả lời
21
Đọc
628
conan1
C
H
  • Question
Mong giúp code chuyển file xls sang xlsx hàng loạt và không lỗi số liệu
Trả lời
16
Đọc
378
Hoàng Tuấn 868
H
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