Note: The other languages of the website are Google-translated. Back to English
English English

Làm cách nào để kết hợp nhiều sổ làm việc thành một sổ làm việc chính trong Excel?

Bạn đã bao giờ gặp khó khăn khi phải kết hợp nhiều sổ làm việc thành một sổ làm việc chính trong Excel? Điều khủng khiếp nhất là các sổ làm việc bạn cần kết hợp chứa nhiều trang tính. Và làm cách nào để chỉ kết hợp các trang tính được chỉ định của nhiều sổ làm việc vào một sổ làm việc? Hướng dẫn này trình bày một số phương pháp hữu ích để giúp bạn giải quyết vấn đề theo từng bước.


Kết hợp nhiều sổ làm việc vào một sổ làm việc với chức năng Di chuyển hoặc Sao chép

Nếu chỉ có một vài sổ làm việc cần được kết hợp, bạn có thể sử dụng lệnh Di chuyển hoặc Sao chép để di chuyển hoặc sao chép thủ công các trang tính từ sổ làm việc gốc sang sổ làm việc chính.

1. Mở các sổ làm việc mà bạn sẽ hợp nhất thành một sổ làm việc chính.

2. Chọn các trang tính trong sổ làm việc gốc mà bạn sẽ di chuyển hoặc sao chép vào sổ làm việc chính.

Ghi chú:

1). Bạn có thể chọn nhiều trang tính không liền kề bằng cách giữ Ctrl và nhấp vào từng tab trang tính.

2). Để chọn nhiều trang tính liền kề, vui lòng nhấp vào tab trang tính đầu tiên, giữ sự thay đổi rồi bấm vào tab trang tính cuối cùng để chọn tất cả.

3). Bạn có thể nhấp chuột phải vào bất kỳ tab trang tính nào, nhấp vào Chọn tất cả các trang tính từ trình đơn ngữ cảnh để chọn tất cả các trang tính trong sổ làm việc cùng một lúc.

3. Sau khi chọn các trang tính cần thiết, hãy nhấp chuột phải vào tab trang tính, sau đó nhấp vào Di chuyển hoặc sao chép từ menu ngữ cảnh. Xem ảnh chụp màn hình:

4. Sau đó Di chuyển hoặc sao chép hộp thoại bật lên, trong Đặt thả xuống, chọn sổ làm việc chính mà bạn sẽ di chuyển hoặc sao chép trang tính vào. Chọn di chuyển để kết thúc trong Trước trang tính hộp, kiểm tra Tạo một bản sao và cuối cùng nhấp vào OK .

Sau đó, bạn có thể xem các trang tính trong hai sổ làm việc được kết hợp thành một. Vui lòng lặp lại các bước trên để di chuyển trang tính từ các sổ làm việc khác vào sổ làm việc chính.


Kết hợp nhiều sổ làm việc hoặc trang tính được chỉ định của sổ làm việc vào một sổ làm việc chính với VBA

Nếu có nhiều sổ làm việc cần được hợp nhất thành một, bạn có thể áp dụng các mã VBA sau để nhanh chóng đạt được nó. Hãy làm như sau.

1. Đặt tất cả các sổ làm việc mà bạn muốn kết hợp thành một trong cùng một thư mục.

2. Khởi chạy tệp Excel (sổ làm việc này sẽ là sổ làm việc chính).

3. Nhấn nút Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun, sau đó sao chép mã VBA bên dưới vào cửa sổ Mô-đun.

Mã VBA 1: Hợp nhất nhiều sổ làm việc Excel thành một

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub
	

Ghi chú:

1. Mã VBA trên sẽ giữ tên trang tính của sổ làm việc ban đầu sau khi hợp nhất.

2. Nếu bạn muốn phân biệt trang tính nào trong sổ làm việc chính đến từ đâu sau khi hợp nhất, vui lòng áp dụng mã VBA 2 bên dưới.

3. Nếu bạn chỉ muốn kết hợp các trang tính cụ thể của sổ làm việc thành một sổ làm việc chính, mã VBA 3 dưới đây có thể giúp bạn.

Trong mã VBA, “C: \ Users \ DT168 \ Desktop \ KTE \”Là đường dẫn thư mục. Trong mã VBA 3, "Trang tính1, Trang tính3"là các trang tính được chỉ định của các sổ làm việc mà bạn sẽ kết hợp thành một sổ làm việc chính. Bạn có thể thay đổi chúng dựa trên nhu cầu của mình.

Mã VBA 2: Hợp nhất các sổ làm việc thành một (mỗi trang tính sẽ được đặt tên bằng tiền tố của tên tệp gốc):

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
    For Each xWS In ActiveWorkbook.Sheets
    xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
    Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
    xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Mã VBA 3: Hợp nhất các bảng tính được chỉ định của sổ làm việc vào một sổ làm việc chính:

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next

xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"

xArr = Split(xStrName, ",")

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

4. Nhấn nút F5 phím để chạy mã. Sau đó, tất cả các trang tính hoặc trang tính được chỉ định của sổ làm việc trong thư mục nhất định được kết hợp với một sổ làm việc chính cùng một lúc.


Dễ dàng kết hợp nhiều sổ làm việc hoặc các trang tính được chỉ định thành một sổ làm việc

May mắn thay, Kết hợp tiện ích sổ làm việc của Kutools cho Excel giúp việc hợp nhất nhiều sổ làm việc thành một dễ dàng hơn nhiều. Hãy xem cách để hàm này hoạt động trong việc kết hợp nhiều sổ làm việc.

Trước khi áp dụng Kutools cho Excel, Xin vui lòng tải xuống và cài đặt nó trước tiên.

1. Tạo sổ làm việc mới và nhấp vào Kutools Plus > Kết hợp. Sau đó, một hộp thoại bật lên để nhắc bạn rằng tất cả các sổ làm việc kết hợp phải được lưu và không thể áp dụng tính năng này cho các sổ làm việc được bảo vệ, vui lòng nhấp vào OK .

2. bên trong Kết hợp các bảng tính wizard, chọn Kết hợp nhiều trang tính từ sổ làm việc vào một sổ làm việc rồi bấm vào Sau cái nút. Xem ảnh chụp màn hình:

3. bên trong Kết hợp các bảng tính - Bước 2/3 hộp thoại, nhấp vào Thêm > Tập tin or Thư mục để thêm các tệp Excel mà bạn sẽ hợp nhất thành một. Sau khi thêm các tệp Excel, hãy nhấp vào Kết thúc và chọn một thư mục để lưu sổ làm việc chính. Xem ảnh chụp màn hình:

Bây giờ tất cả các sổ làm việc được hợp nhất thành một.

So với hai phương pháp trên, Kutools cho Excel có những ưu điểm sau:

  • 1) Tất cả các sổ làm việc và trang tính được liệt kê trong hộp thoại;
  • 2) Đối với các trang tính bạn muốn loại trừ khỏi hợp nhất, chỉ cần bỏ chọn nó;
  • 3) Các bảng tính trống được loại trừ tự động;
  • 4) Tên tệp gốc sẽ được thêm làm tiền tố cho tên trang tính sau khi hợp nhất;
  • Để biết thêm các chức năng của tính năng này, vui lòng truy cập vào đây.

  Nếu bạn muốn dùng thử miễn phí (30 ngày) tiện ích này, vui lòng nhấp để tải xuống, và sau đó đi đến áp dụng hoạt động theo các bước trên.


Kutools cho Excel - Giúp Bạn Luôn Hoàn Thành Công Việc Trước Thời Gian, Có Nhiều Thời Gian Tận Hưởng Cuộc Sống
Bạn thường thấy mình mải miết với công việc, thiếu thời gian dành cho bản thân và gia đình?  Kutools cho Excel có thể giúp bạn giải 80% câu đố Excel và cải thiện 80% hiệu quả công việc, giúp bạn có thêm thời gian chăm sóc gia đình và tận hưởng cuộc sống.
300 công cụ nâng cao cho 1500 tình huống công việc, giúp công việc của bạn trở nên dễ dàng hơn bao giờ hết.
Không còn cần ghi nhớ các công thức và mã VBA, hãy cho bộ não của bạn nghỉ ngơi từ bây giờ.
Các hoạt động phức tạp và lặp đi lặp lại có thể được thực hiện một lần trong vài giây.
Giảm hàng nghìn thao tác bàn phím & chuột mỗi ngày, tạm biệt bệnh nghề nghiệp ngay từ bây giờ.
Trở thành chuyên gia Excel trong 3 phút, giúp bạn nhanh chóng được công nhận và được thăng chức.
110,000 người làm việc hiệu quả và hơn 300 công ty nổi tiếng thế giới được lựa chọn.
Làm cho $ 39.0 của bạn trị giá hơn $ 4000.0 đào tạo của những người khác.
Bản dùng thử miễn phí đầy đủ tính năng trong 30 ngày. Đảm bảo hoàn tiền trong 60 ngày mà không cần lý do.

Nhận xét (146)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào. Xin hãy giúp tôi điều kiện dưới đây. Tôi có sổ làm việc khác nhau có hơn 5 trang tính, mỗi trang tính theo đường dẫn khác nhau. Tôi cần hợp nhất tất cả các trang tính từ các sổ làm việc khác nhau thành một sổ làm việc. Bất cứ ai có thể giúp tôi giải quyết với macro.TIA!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote] Xin chào. Xin hãy giúp tôi điều kiện dưới đây. Tôi có sổ làm việc khác nhau có hơn 5 trang tính, mỗi trang tính theo đường dẫn khác nhau. Tôi cần hợp nhất tất cả các trang tính từ các sổ làm việc khác nhau thành một sổ làm việc. Bất cứ ai có thể giúp tôi giải quyết với macro.TIA!Bởi A. Karthi[/ quote] Vui lòng tải xuống và cài đặt Kutools cho Excel, bạn có thể nhanh chóng làm được. Nhưng nếu bạn muốn sử dụng VBA, nó có thể quá phức tạp. Để biết thêm thông tin về cách thực hiện, vui lòng truy cập:http://www.extendoffice.com/product/kutools-for-excel/excel-combine-worksheets-into-one.html
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
KUTOOLS Giải pháp tuyệt vời. Tôi cần thêm một trợ giúp nữa khi tôi tạo sổ làm việc chính sau đó màu ô của trang tính được thay đổi từ trang tính ban đầu. Làm thế nào tôi có thể giữ nó như trang tính gốc.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Văn phòng của chúng tôi có sự trùng lặp dữ liệu, (tức là tên, địa chỉ, thành phố, số tiền, ngày đã ký) từ một số bản gốc excel và việc cố gắng kết hợp dữ liệu sẽ là một công việc đang được tiến hành. Điều đó có thể được thực hiện như thế nào để loại bỏ công việc kép và các mục nhập thông tin kép?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi nhận được 'lỗi thời gian chạy 1004', Phương pháp Sao chép của lớp Trang tính không thành công trên dòng có nội dung: Sheet.Copy After: = ThisWorkbook.Sheets (1). Tôi đang sử dụng Excel 2010. Bạn có thể hỗ trợ? Cảm ơn, - Susie
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Này Susie, tôi đã tự mình giải quyết vấn đề này trong một thời gian và cũng mắc phải lỗi tương tự. Kiểm tra xem mô-đun có được tạo trong PERSONAL thay vì sổ làm việc đang hoạt động của bạn hay không. Khi tôi đã tạo mô-đun dưới đúng cây, đoạn mã dưới đây hoạt động tốt. Sub GetSheets_xls () Dim Sheet As Worksheet Path = "C: \ Users \ yournamehere \ Desktop \ Testingfolder \" Filename = Dir (Path & "* .xls") Do While Filename "" Workbooks. Mở Filename: = Path & Filename, ReadOnly: = False Set Sheet = ActiveWorkbook.Sheets (1) Sheet.Copy After: = ThisWorkbook.Sheets (1) 'Next Sheet Workbooks (Filename) .Close Filename = Dir () Loop End Sub Hy vọng điều này sẽ hữu ích!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn rất nhiều. Mã của bạn hoạt động tốt.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote] Tôi gặp 'lỗi thời gian chạy 1004', Phương pháp Sao chép của lớp Trang tính không thành công trên dòng có nội dung: Sheet.Copy After: = ThisWorkbook.Sheets (1). Tôi đang sử dụng Excel 2010. Bạn có thể hỗ trợ? Cảm ơn, - SusieBởi Susie[/ quote] Gặp vấn đề tương tự, nó hoạt động khi tôi đi đến xem và hiện "PERSONAL", có vẻ như nó gặp sự cố khi truy cập macro này với cái được ẩn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đi tới xem và hiện "PERSONAL" - có vẻ như gặp sự cố khi thực thi toàn bộ mã trong khi ẩn cái chính. Bạn có thể đặt macro gốc cho sổ làm việc đó, nhưng bạn phải tạo lại toàn bộ mỗi khi bạn muốn sử dụng nó
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào! Cảm ơn rất nhiều về tệp này .............: roll: Tốt nhất
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Này Mẹo hay. Đã làm gần như tất cả những gì tôi muốn. Trong woorkbook combinde, tôi đã yêu thích tên trang tính để chứa tên của woorkbook gốc, vì vậy tôi biết dữ liệu của woorkbook đó đến từ đâu. Dữ liệu tôi đang kết hợp là từ các kho lưu trữ khác nhau. Tôi phải tìm kiếm một mục nhập, nhưng không biết nó nằm trong kho lưu trữ nào. Vì vậy, bằng cách kết hợp tất cả dữ liệu trong một tệp sẽ giúp tôi có thể tìm kiếm tất cả các tệp lưu trữ cùng một lúc. Nhưng tôi vẫn cần biết, mục nhập nằm trong kho lưu trữ nào. Henrik
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Để mã kết hợp tên tệp, chỉ cần làm điều này. Sub GetSheets () Dim temp As String Path = "C: \ Users \ .... \ Desktop \ Excel kết hợp \" Filename = Dir (Path & "* .xlsx") Do While Filename "" Workbooks.Open Filename: = Path & Filename, ReadOnly: = True temp = ActiveWorkbook.Name ActiveSheet.Name = temp ActiveWorkbook.Sheets (temp) .Copy After: = ThisWorkbook.Sheets (1) Workbooks (Filename) .Close Filename = Dir () Loop End Sub Note : đây là chỉ sao chép trang đầu tiên, nó có thể được tweet để thực hiện tất cả các trang
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm cách nào để bạn kết hợp nhiều trang tính hơn và làm cách nào để bạn chỉ định một tệp chính khác để dán tất cả các trang tính.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đó thực sự là một giải pháp tuyệt vời. Cảm ơn. Tuy nhiên, có một vấn đề, khi tôi thực thi nó như thế này, excel sẽ hỏi tôi có muốn lưu các thay đổi trước khi đóng không (Vì tên đã được thay đổi) và tôi không muốn làm điều đó cho mọi tệp (khoảng 32 cho mỗi lần thực thi). Sẽ có một cách để giải quyết điều này?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này thật tuyệt vời: lol: đã giúp tôi rất nhiều….
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn, bạn đã thực hiện một ngày của tôi từ trang web rất hữu ích này ... Thực ra tôi cũng muốn kết hợp dữ liệu tiêu đề giống nhau của các trang tính khác nhau thành 1 trang tính chính, KUTOOL dành cho Excel đã giúp tôi rất nhiều .... Cảm ơn bạn một lần nữa .... :)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn rất nhiều vì những thông tin có giá trị. Điều này thực sự hiệu quả. Các bước được liệt kê trong bài viết này thực sự đã làm cho công việc của tôi trở nên dễ dàng hơn. Cảm ơn, Dinesh
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
cảm ơn vì đã chia sẻ kiến ​​thức của bạn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm cách nào để bạn có được nó để cập nhật các thay đổi từ sổ làm việc gốc? Tôi đang cố gắng lấy một bản tóm tắt quốc gia, trong đó mỗi khu vực sẽ nhập dữ liệu của họ vào sổ làm việc của riêng họ và sau đó có bản tóm tắt quốc gia được cập nhật từ cái này? Tôi muốn thiết lập điều này cho cả năm ngay từ đầu và không hoạt động trở lại.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sau khi kết hợp các trang tính trong một Sổ làm việc, làm cách nào để bạn lưu nó. Tôi không thể lưu nó, nó có tên là Book1 và tôi đang nhấp vào lưu hoặc lưu dưới dạng nhưng không hoạt động. Có đề xuất nào không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã làm theo các bước trong "Kết hợp nhiều sổ làm việc vào một sổ làm việc với VBA" và nhấp vào "chạy", không có gì xảy ra. Tôi không nhận thức được sai sót và không biết làm thế nào để sửa chữa. Bạn có thể giúp tôi? sau đây là mã tôi nhập vào sổ làm việc mới. Cảm ơn bạn Sub GetSheets () Path = "p: \ download \ macro \" Filename = Dir (Path & "* .xls") Do While Filename "" Workbooks.Open Filename: = Path & Filename, ReadOnly: = True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After: = ThisWorkbook.Sheets (1) Bảng tính tiếp theo (Tên tệp). Đóng tên tệp = Dir () Vòng kết thúc phụ
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thưa ông / bà: Tôi đã làm theo các bước "Kết hợp nhiều sổ làm việc vào một sổ làm việc với VBA" để thiết lập mô-đun sau, nhưng không có gì xảy ra. Bạn có thể giúp tôi tìm ra vấn đề? cảm ơn bạn Sub GetSheets () Path = "p: \ download \ macro \" Filename = Dir (Path & "* .xls") Do While Filename "" Workbooks.Open Filename: = Path & Filename, ReadOnly: = True For Each Trang tính trong ActiveWorkbook.Sheets Sheet.Copy After: = ThisWorkbook.Sheets (1) Bảng tính tiếp theo (Tên tệp). Đóng tệp tin = Dir () Vòng kết thúc phụ
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
cho các phiên bản excel mới hơn, hãy thử điều này. Tôi đã lưu sổ làm việc đang mở của mình dưới dạng danh mục và tất cả các tệp đều ở trong c: \ temp. Sub GetSheets () Path = "c: \ temp \" Filename = Dir (Path & "* .xls") Do While Filename "" Workbooks.Open Filename: = Path & Filename, ReadOnly: = True For Each Sheet In ActiveWorkbook. Sheets Sheet.Copy After: = Workbooks ("catalog.xlsx"). Sheets (1) Bảng tiếp theo Workbooks (Filename) .Close Filename = Dir () Loop End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hãy thử điều này cho các phiên bản excel mới hơn. Tôi đã lưu sổ làm việc của mình dưới dạng danh mục, tất cả các tệp đều ở trong c: \ temp. Sub GetSheets () Path = "c: \ temp \" Filename = Dir (Path & "* .xls") Do While Filename "" Workbooks.Open Filename: = Path & Filename, ReadOnly: = True For Each Sheet In ActiveWorkbook. Sheets Sheet.Copy After: = Workbooks ("catalog.xlsx"). Sheets (1) Bảng tiếp theo Workbooks (Filename) .Close Filename = Dir () Loop End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote] Hãy thử điều này cho các phiên bản excel mới hơn. Tôi đã lưu sổ làm việc của mình dưới dạng danh mục, tất cả các tệp đều ở trong c: \ temp. Sub GetSheets () Path = "c: \ temp \" Filename = Dir (Path & "* .xls") Do While Filename "" Workbooks.Open Filename: = Path & Filename, ReadOnly: = True For Each Sheet In ActiveWorkbook. Sheets Sheet.Copy After: = Workbooks ("catalog.xlsx"). Sheets (1) Bảng tiếp theo Workbooks (Filename) .Close Filename = Dir () Loop End SubBởi Dave[/ quote] Tôi tiếp tục nhận được "không thể gán cho thuộc tính chỉ đọc" liên quan đến đường dẫn ... Bạn có ý kiến ​​gì không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi cũng có vấn đề. Bạn đã tìm ra chưa?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Vẫn chưa có gì ... Chưa tìm ra giải pháp nào hoặc chưa có ai đề xuất cách khắc phục. Xin lỗi...
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi cũng vậy. Điều này đã hoạt động cách đây 6 tháng, lần cuối cùng tôi phải chạy nó. Có ai tìm ra giải pháp chưa? Nếu bạn đã chạy nó trước đây và bây giờ nó không hoạt động, đó có thể là một cái gì đó để làm với một bản cập nhật của Microsoft? Đây là công cụ thực sự tiện dụng cho các công việc của tôi và giúp tôi tiết kiệm rất nhiều thời gian. Điều gì có thể đã thay đổi khiến Excel đột ngột bắt đầu hiển thị thông báo này? Là người khá mới đối với VBA, tôi có rất ít ý tưởng bắt đầu phân tích logic từ đâu. Trân trọng, Greg. Glasgow, Scotland.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có vẻ như "Đường dẫn" hiện đã được đặt trước vì vậy chỉ sử dụng bất kỳ tên nào khác và thay thế "Đường dẫn", ví dụ: "Mypath".
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có lẽ bạn nên đổi ReadOnly: = True thành ReadOnly: = False, tôi đã làm và nó rất hữu ích
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã tìm kiếm một cái gì đó dọc theo những dòng này nhưng muốn bình luận. Tên tệp Do While "" không cần phải là một cái gì đó khác với ""? hay tôi đang đọc sai? Có thể Do While NOT filename = "" Chỉ là một suy nghĩ ...
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi muốn kết hợp tất cả các trang tính thành một trang tính có tiêu đề chung ... làm ơn giúp tôi
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi đã thử sử dụng các macro ở trên để đối chiếu một vài tệp, rất tiếc là không có kết quả ... ai đó có thể giúp tôi loại bỏ đối chiếu tệp theo cách thủ công không.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
tôi có 112 trang tính excel tôi muốn đưa vào một trang tính duy nhất mà không cần sao chép và dán. Hãy giúp tôi ra.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có một sổ làm việc nó chứa khoảng 250 Trang tính. Tôi cần Cobain trong một tờ. làm ơn cho tôi một giải pháp
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hãy thử cái này ... Tôi lấy cái này từ một trang khác nhưng tiếc là tôi không thể nhớ tên của người phụ nữ, vì vậy tôi xin lỗi vì đã không đề cập đến cô ấy, lỗi của tôi "Kết hợp nhiều WB trong Excel: NHỚ ĐỔI MyPath =! Sub Merge2MultiSheets ( ) Dim wbDst As Workbook Dim wbSrc As Workbook Dim wsSrc As Worksheet Dim MyPath As String Dim strFilename As String Application.DisplayAlerts = False Application.EnableEvents = False Application.ScreenUpdating = False MyPath = "\\ MyPath \ etc \ etc ..." Đặt wbDst = Workbooks.Add (xlWBATWorksheet) strFilename = Dir (MyPath & "\ *. Xls", vbNormal) If Len (strFilename) = 0 Then Exit Sub Do Until strFilename = "" Đặt wbSrc = Workbooks.Open (Filename: = MyPath & "\" & strFilename) Đặt wsSrc = wbSrc.Worksheets (1) wsSrc.Copy After: = wbDst.Worksheets (wbDst.Worksheets.Count) wbSrc.Close False strFilename = Dir () Vòng lặp wbDst.Worksheets (1). Delete Application.DisplayAlerts = True Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi đã thêm mã vào một mô-đun. Đặt tên là Masterfile sách Excel. Tôi thêm vào đâu trong mã. Cảm ơn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Không có cái nào trong số này hiệu quả với tôi. Cuối cùng tôi cũng có cái này để làm việc. FYI Tôi đang sử dụng 2010 'Mô tả: Kết hợp tất cả các tệp trong một thư mục thành một tệp chính. Sub MergeFiles () Dim path As String, ThisWB As String, lngFilecounter As Long Dim wbDest As Workbook, shtDest As Worksheet, ws As Worksheet Dim Filename As String, Wkb As Workbook Dim CopyRng As Range, Dest As Range Dim RowofCopySheet As Integer RowofCopySheet = 2 'Hàng để bắt đầu trên trang tính bạn đang sao chép từ ThisWB = ActiveWorkbook.Name path = "mypath ....."' Đừng quên thay đổi Ứng dụng này.EnableEvents = False Application.ScreenUpdating = False Set shtDest = ActiveWorkbook .Sheets (1) Filename = Dir (path & "\ *. Xls", vbNormal) If Len (Filename) = 0 Then Exit Sub Do Until Filename = vbNullString If Not Filename = ThisWB Then Set Wkb = Workbooks.Open (Filename: = path & "\" & Filename) Đặt CopyRng = Wkb.Sheets (1) .Range (Ô (RowofCopySheet, 1), Ô (ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)) Đặt Dest = shtDest.Range ("A" & shtDest.UsedRange.SpecialCells (xlCellTypeLastCell) .Row + 1) CopyRng.Copy Dest Wkb. Đóng False End If Filename = Dir () Loop Rang e ("A1"). Chọn Application.EnableEvents = True Application.ScreenUpdating = True MsgBox "Xong!" Kết thúc Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm cách nào để chỉnh sửa điều này để dữ liệu được kéo vào luôn bắt đầu ở hàng trên cùng? Nếu tôi chạy mã này hai lần, nó sẽ thêm dữ liệu vào cuối dữ liệu trước đó của tôi (từ lần chạy macro đầu tiên).
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thay đổi dòng này: RowofCopySheet = 2 thành RowofCopySheet = 1
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi có nhiều thư mục Tệp Excel (một trang tính) khác nhau với mật khẩu bảo vệ. tôi muốn cuối ngày kết hợp tất cả dữ liệu vào một tệp Master. Mỗi khi tôi phải Nhập mật khẩu và mở tệp và sao chép dán vào tệp chính .. Vui lòng giúp tôi mã VBA cho việc này.
Không có bình luận nào được đăng ở đây
Tải thêm
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất