Muốn tách 1 sheet thành nhiều sheet theo điều kiện cột N (để kết quả mỗi nhân viên là sheef)

Liên hệ QC
L

lai120594

Thành viên mới
Tham gia
4/4/20
Bài viết
3
Được thích
0
Nhờ a chị hỗ trợ em với em có file này muốn tách 1 sheet thành nhiều sheet theo cột N là mỗi nhân viên là 1 sheet
 

File đính kèm

  • VBA vi du.xls
    255 KB · Đọc: 25
Sắp xếp theo thời gian sắp xếp theo bầu chọn
lai120594 đã viết:
Nhờ a chị hỗ trợ em với em có file này muốn tách 1 sheet thành nhiều sheet theo cột N là mỗi nhân viên là 1 sheet
Nhấp chuột vào đây để mở rộng...
Bạn dùng thử code này.
Mã: 
Public Sub GPE()
Dim I As Long, Arr,  Wh As Worksheet, Wb As Workbook
Dim Dic, Tem As String, Bp As String, Rng As Range, iRow%
Application.DisplayAlerts = False
Application.ScreenUpdating = False
    Set Wb = ThisWorkbook
    With Wb.Sheets(1)
        iRow = .[A65000].End(3).Row
        Set Rng = .Range("A1", .[A65000].End(3)).Resize(, 14)
        Set Dic = CreateObject("scripting.dictionary")
        Arr = .Range("A2", .[A65000].End(3)).Resize(, 14).Value
        For I = 1 To UBound(Arr)
            Tem = Arr(I, 14)
            If Tem <> Empty And Not Dic.exists(Tem) Then
                Dic.Add Tem, ""
                Bp = Tem
                Set Wh = Wb.Sheets.Add(After:=Sheets(Wb.Worksheets.Count))
                Rng.AutoFilter 14, Bp
                .Range("A1", Rng).SpecialCells(12).Copy
                With Wh
                    .[A1].PasteSpecial xlPasteValues
                    .[A1].PasteSpecial xlPasteFormats
                    .Rows("1:" & iRow).RowHeight = 15
                    .Columns("A").Resize(, 14).AutoFit
                    .Name = Bp
                End With
             End If
        Next I
        Set Dic = Nothing
    End With
Application.CutCopyMode = False
Application.DisplayAlerts = False
Application.ScreenUpdating = True
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
giaiphap đã viết:
Bạn dùng thử code này.
Mã: 
Public Sub GPE()
Dim I As Long, Arr, Path As String, Wh As Worksheet, Wb As Workbook
Dim Dic, Tem As String, Bp As String, Rng As Range, iRow%
Application.DisplayAlerts = False
Application.ScreenUpdating = False
    Set Wb = ThisWorkbook
    Path = ThisWorkbook.Path
    With Wb.Sheets(1)
        iRow = .[A65000].End(3).Row
        Set Rng = .Range("A1", .[A65000].End(3)).Resize(, 14)
        Set Dic = CreateObject("scripting.dictionary")
        Arr = .Range("A2", .[A65000].End(3)).Resize(, 14).Value
        For I = 1 To UBound(Arr)
            Tem = Arr(I, 14)
            If Tem <> Empty And Not Dic.exists(Tem) Then
                Dic.Add Tem, ""
                Bp = Tem
                Set Wh = Wb.Sheets.Add(After:=Sheets(Wb.Worksheets.Count))
                Rng.AutoFilter 14, Bp
                .Range("A1", Rng).SpecialCells(12).Copy
                With Wh
                    .[A1].PasteSpecial xlPasteValues
                    .[A1].PasteSpecial xlPasteFormats
                    .Rows("1:" & iRow).RowHeight = 15
                    .Columns("A").Resize(, 14).AutoFit
                    .Name = Bp
                End With
             End If
        Next I
        Set Dic = Nothing
    End With
Application.CutCopyMode = False
Application.DisplayAlerts = False
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
1586163160328.pngk
Bài đã được tự động gộp:

giaiphap đã viết:
Bạn dùng thử code này.
Mã: 
Public Sub GPE()
Dim I As Long, Arr, Path As String, Wh As Worksheet, Wb As Workbook
Dim Dic, Tem As String, Bp As String, Rng As Range, iRow%
Application.DisplayAlerts = False
Application.ScreenUpdating = False
    Set Wb = ThisWorkbook
    Path = ThisWorkbook.Path
    With Wb.Sheets(1)
        iRow = .[A65000].End(3).Row
        Set Rng = .Range("A1", .[A65000].End(3)).Resize(, 14)
        Set Dic = CreateObject("scripting.dictionary")
        Arr = .Range("A2", .[A65000].End(3)).Resize(, 14).Value
        For I = 1 To UBound(Arr)
            Tem = Arr(I, 14)
            If Tem <> Empty And Not Dic.exists(Tem) Then
                Dic.Add Tem, ""
                Bp = Tem
                Set Wh = Wb.Sheets.Add(After:=Sheets(Wb.Worksheets.Count))
                Rng.AutoFilter 14, Bp
                .Range("A1", Rng).SpecialCells(12).Copy
                With Wh
                    .[A1].PasteSpecial xlPasteValues
                    .[A1].PasteSpecial xlPasteFormats
                    .Rows("1:" & iRow).RowHeight = 15
                    .Columns("A").Resize(, 14).AutoFit
                    .Name = Bp
                End With
             End If
        Next I
        Set Dic = Nothing
    End With
Application.CutCopyMode = False
Application.DisplayAlerts = False
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
k được bạn ạ, các có dùng zalo k chỉ hộ mình với
 
Upvote 0
giaiphap đã viết:
Bạn dùng thử code này.
Mã: 
Public Sub GPE()
Dim I As Long, Arr,  Wh As Worksheet, Wb As Workbook
Dim Dic, Tem As String, Bp As String, Rng As Range, iRow%
Application.DisplayAlerts = False
Application.ScreenUpdating = False
    Set Wb = ThisWorkbook
    With Wb.Sheets(1)
        iRow = .[A65000].End(3).Row
        Set Rng = .Range("A1", .[A65000].End(3)).Resize(, 14)
        Set Dic = CreateObject("scripting.dictionary")
        Arr = .Range("A2", .[A65000].End(3)).Resize(, 14).Value
        For I = 1 To UBound(Arr)
            Tem = Arr(I, 14)
            If Tem <> Empty And Not Dic.exists(Tem) Then
                Dic.Add Tem, ""
                Bp = Tem
                Set Wh = Wb.Sheets.Add(After:=Sheets(Wb.Worksheets.Count))
                Rng.AutoFilter 14, Bp
                .Range("A1", Rng).SpecialCells(12).Copy
                With Wh
                    .[A1].PasteSpecial xlPasteValues
                    .[A1].PasteSpecial xlPasteFormats
                    .Rows("1:" & iRow).RowHeight = 15
                    .Columns("A").Resize(, 14).AutoFit
                    .Name = Bp
                End With
             End If
        Next I
        Set Dic = Nothing
    End With
Application.CutCopyMode = False
Application.DisplayAlerts = False
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...

Dữ liệu của mình khoảng 60000 dòng, mình chạy bị báo lỗi Overflow.
Bạn có thể chỉnh lại giúp mình để chạy được với dữ liệu lớn không?
 
Upvote 0
Quỳnh Như 7648 đã viết:
Dữ liệu của mình khoảng 60000 dòng, mình chạy bị báo lỗi Overflow.
Bạn có thể chỉnh lại giúp mình để chạy được với dữ liệu lớn không?
Nhấp chuột vào đây để mở rộng...
Mình chưa thử dữ liệu lớn bao giờ, bạn có thể đưa cái file đó lên đây mình xem thử.
 
Upvote 0
Quỳnh Như 7648 đã viết:
Bạn xem giúp mình nhé. Cám ơn bạn. Mình muốn tách theo cột A
Nhấp chuột vào đây để mở rộng...
Bạn dùng thử code sau đỡ nhé:
PHP: 
Option Explicit
Sub zaq()
Dim Rng As Range, endR As Long
With Application
    .DisplayAlerts = False
    .ScreenUpdating = False
With ActiveSheet
    endR = .Range("A650000").End(xlUp).Row
    .Range("A2:A" & endR).Copy Range("P2")
    .Range("P2:P" & endR).RemoveDuplicates 1, xlNo
    .Range("A1").CurrentRegion.AutoFilter
For Each Rng In .Range("P2:P" & .Range("P2").End(xlDown).Row - 1)
    With .Range("A1").CurrentRegion
        .AutoFilter 1, Rng.Value
        .Copy
    End With
    Workbooks.Add: ActiveSheet.Paste
    ActiveSheet.Columns("A:N").AutoFit
    With ActiveWorkbook
        .SaveAs ThisWorkbook.Path & "\" & Rng, FileFormat:=xlOpenXMLWorkbook
        .Close
    End With
Next
    .Range("A1").CurrentRegion.AutoFilter
End With
.ScreenUpdating = True
.DisplayAlerts = True
End With
MsgBox "Done"

End Sub
 
Upvote 0
Quỳnh Như 7648 đã viết:
Bạn xem giúp mình nhé. Cám ơn bạn. Mình muốn tách theo cột A
Nhấp chuột vào đây để mở rộng...
Sửa code lại thế này.
Mã: 
Public Sub GPE()
Dim I As Long, Arr, Wh As Worksheet, Wb As Workbook
Dim Dic, Tem As String, Bp As String, Rng As Range, iRow As Long
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    Set Wb = ThisWorkbook
    With Wb.Sheets(1)
        iRow = .Range("A65000").End(xlUp).Row
        Set Rng = .Range("A1:A" & iRow).Resize(, 9)
        Set Dic = CreateObject("scripting.dictionary")
        Arr = .Range("A2", .[A65000].End(3)).Resize(, 9).Value
        For I = 1 To UBound(Arr)
            Tem = Arr(I, 1)
            If Tem <> Empty And Not Dic.exists(Tem) Then
                Dic.Add Tem, ""
                Bp = Tem
                Set Wh = Wb.Sheets.Add(After:=Sheets(Wb.Worksheets.Count))
                Rng.AutoFilter 1, Bp
                .Range("A1", Rng).SpecialCells(12).Copy
                With Wh
                    .[A1].PasteSpecial xlPasteValues
                    .[A1].PasteSpecial xlPasteFormats
                    .Rows("1:" & iRow).RowHeight = 15
                    .Columns("A").Resize(, 9).AutoFit
                    .Name = Bp
                End With
             End If
        Next I
        Set Dic = Nothing
    End With
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = False
Application.ScreenUpdating = True
End Sub
 
Upvote 0
quick87 đã viết:
Bạn dùng thử code sau đỡ nhé:
PHP: 
Option Explicit
Sub zaq()
Dim Rng As Range, endR As Long
With Application
    .DisplayAlerts = False
    .ScreenUpdating = False
With ActiveSheet
    endR = .Range("A650000").End(xlUp).Row
    .Range("A2:A" & endR).Copy Range("P2")
    .Range("P2:P" & endR).RemoveDuplicates 1, xlNo
    .Range("A1").CurrentRegion.AutoFilter
For Each Rng In .Range("P2:P" & .Range("P2").End(xlDown).Row - 1)
    With .Range("A1").CurrentRegion
        .AutoFilter 1, Rng.Value
        .Copy
    End With
    Workbooks.Add: ActiveSheet.Paste
    ActiveSheet.Columns("A:N").AutoFit
    With ActiveWorkbook
        .SaveAs ThisWorkbook.Path & "\" & Rng, FileFormat:=xlOpenXMLWorkbook
        .Close
    End With
Next
    .Range("A1").CurrentRegion.AutoFilter
End With
.ScreenUpdating = True
.DisplayAlerts = True
End With
MsgBox "Done"

End Sub
Nhấp chuột vào đây để mở rộng...

Cám ơn bạn. Mà hiện tại đang tách thành nhiều file.
Có cách nào để tách thành nhiều sheet trong cùng 1 file ko bạn?
 
Upvote 0
giaiphap đã viết:
Bạn dùng thử code này.
Mã: 
Public Sub GPE()
Dim I As Long, Arr,  Wh As Worksheet, Wb As Workbook
Dim Dic, Tem As String, Bp As String, Rng As Range, iRow%
Application.DisplayAlerts = False
Application.ScreenUpdating = False
    Set Wb = ThisWorkbook
    With Wb.Sheets(1)
        iRow = .[A65000].End(3).Row
        Set Rng = .Range("A1", .[A65000].End(3)).Resize(, 14)
        Set Dic = CreateObject("scripting.dictionary")
        Arr = .Range("A2", .[A65000].End(3)).Resize(, 14).Value
        For I = 1 To UBound(Arr)
            Tem = Arr(I, 14)
            If Tem <> Empty And Not Dic.exists(Tem) Then
                Dic.Add Tem, ""
                Bp = Tem
                Set Wh = Wb.Sheets.Add(After:=Sheets(Wb.Worksheets.Count))
                Rng.AutoFilter 14, Bp
                .Range("A1", Rng).SpecialCells(12).Copy
                With Wh
                    .[A1].PasteSpecial xlPasteValues
                    .[A1].PasteSpecial xlPasteFormats
                    .Rows("1:" & iRow).RowHeight = 15
                    .Columns("A").Resize(, 14).AutoFit
                    .Name = Bp
                End With
             End If
        Next I
        Set Dic = Nothing
    End With
Application.CutCopyMode = False
Application.DisplayAlerts = False
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Tôi có copy code trên và sửa cho file của tôi nhưng vẫn không đúng, nhờ bạn hỗ trợ
Cái tôi muốn tách là mặt hàng ở cột B
Cảm ơn bạn
Mã: 
Public Sub GPE()
    Dim I As Long, Arr, Wh As Worksheet, Wb As Workbook
    Dim Dic, Tem As String, Bp As String, Rng As Range, iRow%
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Set Wb = ThisWorkbook
    With Wb.Sheets(1)
        iRow = .[A65000].End(3).Row
        Set Rng = .Range("A1", .[A65000].End(3)).Resize(, 4)
        Set Dic = CreateObject("scripting.dictionary")
        Arr = .Range("A2", .[A65000].End(3)).Resize(, 4).Value
        For I = 1 To UBound(Arr)
            Tem = Arr(I, 2)
            If Tem <> Empty And Not Dic.exists(Tem) Then
                Dic.Add Tem, ""
                Bp = Tem
                Set Wh = Wb.Sheets.Add(After:=Sheets(Wb.Worksheets.Count))
                Rng.AutoFilter 4, Bp
                .Range("A1", Rng).SpecialCells(12).Copy
                With Wh
                    .[A1].PasteSpecial xlPasteValues
                    .[A1].PasteSpecial xlPasteFormats
                    .Rows("1:" & iRow).RowHeight = 15
                    .Columns("A").Resize(, 4).AutoFit
                    .Name = Bp
                End With
            End If
        Next I
        Set Dic = Nothing
    End With
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    Application.ScreenUpdating = True
End Sub
 

File đính kèm

  • tachsheet.xlsm
    17.4 KB · Đọc: 14
Upvote 0
dongducnhiem đã viết:
Tôi có copy code trên và sửa cho file của tôi nhưng vẫn không đúng, nhờ bạn hỗ trợ
Cái tôi muốn tách là mặt hàng ở cột B
Cảm ơn bạn
Mã: 
Public Sub GPE()
    Dim I As Long, Arr, Wh As Worksheet, Wb As Workbook
    Dim Dic, Tem As String, Bp As String, Rng As Range, iRow%
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Set Wb = ThisWorkbook
    With Wb.Sheets(1)
        iRow = .[A65000].End(3).Row
        Set Rng = .Range("A1", .[A65000].End(3)).Resize(, 4)
        Set Dic = CreateObject("scripting.dictionary")
        Arr = .Range("A2", .[A65000].End(3)).Resize(, 4).Value
        For I = 1 To UBound(Arr)
            Tem = Arr(I, 2)
            If Tem <> Empty And Not Dic.exists(Tem) Then
                Dic.Add Tem, ""
                Bp = Tem
                Set Wh = Wb.Sheets.Add(After:=Sheets(Wb.Worksheets.Count))
                Rng.AutoFilter 4, Bp
                .Range("A1", Rng).SpecialCells(12).Copy
                With Wh
                    .[A1].PasteSpecial xlPasteValues
                    .[A1].PasteSpecial xlPasteFormats
                    .Rows("1:" & iRow).RowHeight = 15
                    .Columns("A").Resize(, 4).AutoFit
                    .Name = Bp
                End With
            End If
        Next I
        Set Dic = Nothing
    End With
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Bạn thử lại code dưới nhé:
Rich (BB code): 
Public Sub GPE()
    Dim I As Long, Arr, Wh As Worksheet, Wb As Workbook
    Dim Dic, Tem As String, Bp As String, Rng As Range, iRow%
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Set Wb = ThisWorkbook
    With Wb.Sheets(1)
        iRow = .[A65000].End(3).Row
        Set Rng = .Range("A1", .[A65000].End(3)).Resize(, 4)
        Set Dic = CreateObject("scripting.dictionary")
        Arr = .Range("A2", .[A65000].End(3)).Resize(, 4).Value
        For I = 1 To UBound(Arr)
            Tem = Arr(I, 2)
            If Tem <> Empty And Not Dic.exists(Tem) Then
                Dic.Add Tem, ""
                Bp = Tem
                Set Wh = Wb.Sheets.Add(After:=Sheets(Wb.Worksheets.Count))
                Rng.AutoFilter 2, Bp
                .Range("A1", Rng).SpecialCells(12).Copy
                With Wh
                    .[A1].PasteSpecial xlPasteValues
                    .[A1].PasteSpecial xlPasteFormats
                    .Rows("1:" & iRow).RowHeight = 15
                    .Columns("A").Resize(, 4).AutoFit
                    .Name = Bp
                End With
            End If
        Next I
        Set Dic = Nothing
    End With
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    Application.ScreenUpdating = True
End Sub
 
Upvote 0
giaiphap đã viết:
Sửa code lại thế này.
Mã: 
Public Sub GPE()
Dim I As Long, Arr, Wh As Worksheet, Wb As Workbook
Dim Dic, Tem As String, Bp As String, Rng As Range, iRow As Long
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    Set Wb = ThisWorkbook
    With Wb.Sheets(1)
        iRow = .Range("A65000").End(xlUp).Row
        Set Rng = .Range("A1:A" & iRow).Resize(, 9)
        Set Dic = CreateObject("scripting.dictionary")
        Arr = .Range("A2", .[A65000].End(3)).Resize(, 9).Value
        For I = 1 To UBound(Arr)
            Tem = Arr(I, 1)
            If Tem <> Empty And Not Dic.exists(Tem) Then
                Dic.Add Tem, ""
                Bp = Tem
                Set Wh = Wb.Sheets.Add(After:=Sheets(Wb.Worksheets.Count))
                Rng.AutoFilter 1, Bp
                .Range("A1", Rng).SpecialCells(12).Copy
                With Wh
                    .[A1].PasteSpecial xlPasteValues
                    .[A1].PasteSpecial xlPasteFormats
                    .Rows("1:" & iRow).RowHeight = 15
                    .Columns("A").Resize(, 9).AutoFit
                    .Name = Bp
                End With
             End If
        Next I
        Set Dic = Nothing
    End With
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = False
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...

Cám ơn bạn
 
Upvote 0
Tôi đã tìm ra lỗi
Sửa
Rng.AutoFilter 4, Bp
Thành
Rng.AutoFilter 2, Bp
Xin cảm ơn!
 
Upvote 0
giaiphap đã viết:
Bạn dùng thử code này.
Mã: 
Public Sub GPE()
Dim I As Long, Arr,  Wh As Worksheet, Wb As Workbook
Dim Dic, Tem As String, Bp As String, Rng As Range, iRow%
Application.DisplayAlerts = False
Application.ScreenUpdating = False
    Set Wb = ThisWorkbook
    With Wb.Sheets(1)
        iRow = .[A65000].End(3).Row
        Set Rng = .Range("A1", .[A65000].End(3)).Resize(, 14)
        Set Dic = CreateObject("scripting.dictionary")
        Arr = .Range("A2", .[A65000].End(3)).Resize(, 14).Value
        For I = 1 To UBound(Arr)
            Tem = Arr(I, 14)
            If Tem <> Empty And Not Dic.exists(Tem) Then
                Dic.Add Tem, ""
                Bp = Tem
                Set Wh = Wb.Sheets.Add(After:=Sheets(Wb.Worksheets.Count))
                Rng.AutoFilter 14, Bp
                .Range("A1", Rng).SpecialCells(12).Copy
                With Wh
                    .[A1].PasteSpecial xlPasteValues
                    .[A1].PasteSpecial xlPasteFormats
                    .Rows("1:" & iRow).RowHeight = 15
                    .Columns("A").Resize(, 14).AutoFit
                    .Name = Bp
                End With
             End If
        Next I
        Set Dic = Nothing
    End With
Application.CutCopyMode = False
Application.DisplayAlerts = False
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Mình sử dụng cho 1 file khác thì lại không được, bạn xem lại giúp mình với
 

File đính kèm

  • CHECK CODE.xlsx
    2.2 MB · Đọc: 4
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

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
1
Đọc
2
Hoàng Tuấn 868
H
tvcneo
Macro hoạt động ngân hàng
Trả lời
9
Đọc
11
Hoàng Tuấn 868
H
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
Trả lời
32
Đọc
322
Hoàng Tuấn 868
H
Hai Lúa Miền Tây
  • Question
Hàm chuyển dữ liệu từ cột sang dòng (Hàm melt của Python trong Excel)
    • Cảm ơn
    • Yêu thích
    • Thích
Trả lời
4
Đọc
296
tranhungdao12a3
T
jenny12345
tổng hợp dữ liệu theo tháng
Trả lời
8
Đọc
164
Hoàng Tuấn 868
H
L
Nhờ các bác check và sửa lỗi giúp em file excel ạ.
Trả lời
1
Đọc
48
Duy Tùng 9x
Duy Tùng 9x
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
14
Đọc
302
hieug126
H
N
Giúp em công thức lấy dữ liệu không trùng để in phiếu thu bán hàng
Trả lời
3
Đọc
81
Hoàng Tuấn 868
H
67k8899
Xin được giúp đỡ! Cách đánh số thứ tự tự động theo 2 điều kiện
Trả lời
2
Đọc
86
67k8899
67k8899
vib1191
Nhờ giúp đỡ công thức dò tìm và tính tổng
Trả lời
0
Đọc
45
vib1191
vib1191
H
Có thể mở file Excel mới sẽ Zoom mặc định 150% không?
Trả lời
2
Đọc
95
cantl
C
Maika8008
  • Đã giải quyết
[Chia sẻ] Dùng VBA trộn dữ liệu Excel sang file Word mẫu (tương tự chức năng Mail Merge)
    • Thích
    • Yêu thích
    • Cảm ơn
24 25 26
Trả lời
519
Đọc
45K
Maika8008
Maika8008
T
Nhờ hỗ trợ công thức ghép dữ liệu
Trả lời
5
Đọc
130
HieuCD
H
jenny12345
hàm để tham chiếu từ file này sang file khác
Trả lời
2
Đọc
107
jenny12345
jenny12345
H
  • Question
Lập trình cộng gộp phân cấp tài khoản kế toán
Trả lời
4
Đọc
227
hieuvietmy2020
H
Vân Vân Ngô
xóa các shape ẩn trong sheet excel
Trả lời
14
Đọc
20K
PerSP
PerSP
LinDan
  • Question
Muốn biết các kí tự liên quan đến ChrW() thì phải làm thế nào
Trả lời
12
Đọc
6K
huhumalu
H
huuthang_bd
Quản lý giải thi đấu thể thao
    • Thích
    • Yêu thích
18 19 20
Trả lời
394
Đọc
98K
Thuybylc
Thuybylc
Tungnk
VBA Nhận được thông báo: Run-time error "70" Permission denied
Trả lời
4
Đọc
2K
Nhật Anh 9x
Nhật Anh 9x
H
  • Question
cách tạo phím tắt cho 1 userform?
Trả lời
17
Đọc
8K
quocbinh186
quocbinh186
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