Bài viết dưới đây sẽ hướng dẫn bạn cách nhập dữ liệu trong excel từ trang tính khác!
NHẬP DỮ LIỆU TỪ TRANG TÍNH KHÁC BẰNG TÍNH NĂNG CONNECTIONS
Nếu bạn đã quen thuộc với tính năng Connections trong Excel thì có thể dễ dàng nhập dữ liệu từ trang tính khác sang trang tính đang làm việc. Các dữ liệu được nhập sẽ cập nhật tự động cùng với dữ liệu gốc. Bạn thực hiện theo các bước sau:
Bước 1: Bạn nhấp vào Data > Connections. 
Bước 3: Tiếp đó chọn bảng tính mà bạn muốn xuất dữ liệu của nó sang trang tính hiện tại. 
Bước 4: Sau khi đã chọn bảng tính, bạn nhấp nút Open, chọn một trang tính mà bạn muốn sử dụng. 
Bước 5: Bạn nhấp OK, lúc này sẽ trở lại hộp thoại Workbook Connections, bảng tính được chọn sẽ thêm vào hộp danh sách, thực hiện đóng hộp thoại.
Bước 6: Nhấp vào Data > Existing Connections. 
Bước 7: Tại hộp thoại Existing Connections, bạn chọn bảng tính vừa được thêm, rồi nhấp nút Open. 
Bước 8. Hộp thoại Import Data sẽ hiện ra, chọn một tùy chọn mà bạn thích từ Select how you want to view this data in your workbook, rồi chọn một vùng dữ liệu trong trang tính có sẵn hay một trang tính mới để nhập dữ liệu. 
Bước 9: Rồi nhấp OK, dữ liệu từ một trang tính khác đã được nhập vào trang tính mà bạn chọn. 
Chú ý.
- Khi sử dụng phương pháp này, bạn có thể nhập dữ liệu với dạng bảng, PivotTable Report và PivotTableChart.
- Bảng tính được kết nối với dữ liệu ngoài, nên nếu bạn muốn cập nhật phiên bản gần nhất cho bảng tính, hãy vào Data > Refresh All để cập nhật dữ liệu.
NHẬP DỮ LIỆU TỪ MỘT TRANG TÍNH KHÁC BẰNG VBA CODE
Bước 1: Thực hiện nhấn giữ phím Alt + F11, cửa sổ Microsoft Visual Basic for Applications sẽ mở ra. Bước 2: Nhấp Insert > Module, sau đó dán đoạn mã sau vào Module Window.
Sub ImportDatafromotherworksheet() Dim wkbCrntWorkBook As Workbook Dim wkbSourceBook As Workbook Dim rngSourceRange As Range Dim rngDestination As Range Set wkbCrntWorkBook = ActiveWorkbook With Application.FileDialog(msoFileDialogOpen) .Filters.Clear .Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa" .AllowMultiSelect = False .Show If .SelectedItems.Count > 0 Then Workbooks.Open .SelectedItems(1) Set wkbSourceBook = ActiveWorkbook Set rngSourceRange = Application.InputBox(prompt:="Select source range", Title:="Source Range", Default:="A1", Type:=8) wkbCrntWorkBook.Activate Set rngDestination = Application.InputBox(prompt:="Select destination cell", Title:="Select Destination", Default:="A1", Type:=8) rngSourceRange.Copy rngDestination rngDestination.CurrentRegion.EntireColumn.AutoFit wkbSourceBook.Close False End If End WithEnd Sub
