Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

How to reference same cell from multiple worksheets in Excel?

Supposing you have a workbook which contains multiple worksheets, and now you want to extract the data within the same cell across multiple worksheets into one master worksheet. For example, pull cell B6 from Sheet1, Sheet2, Sheet3, Sheet4… into a master sheet. How could you solve this task quickly and easily?

Reference same cell from multiple worksheets with Copy & Paste Link one by one

Reference same cell from multiple worksheets with VBA code

Reference same cell from multiple worksheets with Kutools for Excel

Office Tab Enable Tabbed Editing and Browsing in Office, and Make Your Work Much Easier...
Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%
  • Reuse Anything: Add the most used or complex formulas, charts and anything else to your favorites, and quickly reuse them in the future.
  • More than 20 text features: Extract Number from Text String; Extract or Remove Part of Texts; Convert Numbers and Currencies to English Words.
  • Merge Tools: Multiple Workbooks and Sheets into One; Merge Multiple Cells/Rows/Columns Without Losing Data; Merge Duplicate Rows and Sum.
  • Split Tools: Split Data into Multiple Sheets Based on Value; One Workbook to Multiple Excel, PDF or CSV Files; One Column to Multiple Columns.
  • Paste Skipping Hidden/Filtered Rows; Count And Sum by Background Color; Send Personalized Emails to Multiple Recipients in Bulk.
  • Super Filter: Create advanced filter schemes and apply to any sheets; Sort by week, day, frequency and more; Filter by bold, formulas, comment...
  • More than 300 powerful features; Works with Office 2007-2019 and 365; Supports all languages; Easy deploying in your enterprise or organization.

Here, I will take the following screenshot for example. I have a workbook with five worksheets, four of the worksheets are set up the same way, with their Total orders in cell B6. And now I want to reference cell B6 from these four worksheets and fill them into the Master worksheet. See screenshots:

doc-fill-refs1
-1
doc-fill-refs2

arrow blue right bubbleReference same cell from multiple worksheets with Copy & Paste Link one by one


Here, we can use Copy and Paste Link function to copy and link the data. And it is easy for us to apply.

1. Click cell B6 in Monday sheet, and press Ctrl + C to copy it.

2. Go to the Master sheet, click the corresponding cell and right click, choose Paste Special from the context menu.

doc-fill-refs3

3. In the Paste Special dialog box, click Paste Link button. See screenshot:

doc-fill-refs4

4. And the value has been pasted to the cell and linked to the original data.

doc-fill-refs5

5. Then repeat above steps to copy and paste link cell values from other worksheets into the Master sheet one by one.


arrow blue right bubbleReference same cell from multiple worksheets with VBA code

If there are dozens of worksheets, the copy and paste function will be troublesome and time-consuming, in this case, the following VBA code can help you fill the same cell references from multiple worksheets into one worksheet at once.

1. In the Master worksheet, click cell B6 which is the cell you want to extract from other worksheets.

doc-fill-refs6

2. Hold down the ALT + F11 keys, and it opens the Microsoft Visual Basic for Applications window.

3. Click Insert > Module, and paste the following code in the Module Window.

VBA code: reference same cell from multiple worksheets

Sub AutoFillSheetNames()
'Update 20131202
Dim ActRng As Range
Dim ActWsName As String
Dim ActAddress As String
Dim Ws As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set ActRng = Application.ActiveCell
ActWsName = Application.ActiveSheet.Name
ActAddress = ActRng.Address(False, False)
Application.ScreenUpdating = False
xIndex = 0
For Each Ws In Application.Worksheets
If Ws.Name <> ActWsName Then
ActRng.Offset(xIndex, 0).Value = "='" & Ws.Name & "'!" & ActAddress
xIndex = xIndex + 1
End If
Next
Application.ScreenUpdating = True
End Sub

4. Then press F5 key to run this code, and all values of cell B6 from other worksheets have been pulled into the Master worksheet. See screenshot:

doc-fill-refs7

Note: This VBA code is applied for filling the cells where you click. For example, if you click cell A1 in a specified worksheet, all the values of cell A1 from other worksheets will be filled into this worksheet.


arrow blue right bubbleReference same cell from multiple worksheets with Kutools for Excel

If you are not familiar with the VBA code, here, I can introduce you a useful tool - Kutools for Excel, with its Fill Worksheets References utility, you can fill cell references from multiple worksheets in Excel with ease.

Kutools for Excel includes more than 300 handy Excel tools. Free to try with no limitation in 30 days. Get it Now.

After installing Kutools for Excel, please do as follows:

1. Click cell B6 within the Master sheet which you want to extract from other worksheets.

2. Then click Kutools > More Tools > Fill Worksheets References, see screenshot:

doc-fill-refs8

3. In the Fill Worksheets References dialog box, choose Fill vertically cell after cell from the Fill order, and click the little lock beside the formula text box, and the grey lock will become yellow lock, it means the formula and cell reference has been locked, then you can click any a cell to extract the cell B6 references from other worksheets, in this example I will click cell B2. (If you don’t lock this little lock, the cell reference and formula you are created will be changed with the selected cell.) Then, check the worksheets which you want to extract the cell references from. See screenshot:

doc-fill-refs9

4. Then click Fill Range button, and the cell values of cell B6 from other worksheets have been listed vertically in the Master worksheet, and then close this dialog box. See screenshot:

doc-fill-refs10

Note: With this utility, you can also fill the same cell references from other worksheets horizontally cell after cell into one worksheet. Meanwhile, you can extract the cell references from the specified worksheets.

Click to know more about this Fill Worksheets References utility.


Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

  • Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
  • Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
  • Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
  • Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
  • Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
  • Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
  • Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
  • Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
  • More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial.
kte tab 201905

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
officetab bottom
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Harshal Patil · 1 years ago
    I have create a stock sheet and opening stock list is there and i create 500 sheets for different items so how to put opening stock in all sheets at a time
  • To post as a guest, your comment is unpublished.
    Sam · 2 years ago
    Hello,


    I have a list of students in column A and the schools they attend in G. I want a worksheet to populate all students who attend X school from the available worksheets. How would I do this? Thanks in advance!
  • To post as a guest, your comment is unpublished.
    Becky · 2 years ago
    I have a spreadsheet with all the months. I want some of the cells to carry over from the first month to the proceeding other (i.e., cell B12 in January can be linked to February - December cell B12).

    How would I do this?
  • To post as a guest, your comment is unpublished.
    Luzardo · 2 years ago
    Hi, thanks it works with a workbook at my job. Thanks

    Best regards
    Luzardo
  • To post as a guest, your comment is unpublished.
    Mohamed AbdElhady · 2 years ago
    Dears,
    Kindly note that I used Reference Same Cell From Multiple Worksheets With VBA Code and it works with me properly, however I need your help in how to me this code retrieve the values in the master sheet horizontal instead of vertical.

    Best Regards, :-)
  • To post as a guest, your comment is unpublished.
    Mohamed AbdElhady · 2 years ago
    Dears
    Kindly note that I used Reference Same Cell From Multiple Worksheets With VBA Code and it works properly, but I need to modify something in the code and I need your help to make the values return in the master sheet horizontal instead of vertical.

    Best Regards,
    Mohamed AbdELhady
  • To post as a guest, your comment is unpublished.
    Li · 2 years ago
    Is there a MAcbook version of this tool?
  • To post as a guest, your comment is unpublished.
    Jordan Hynes · 3 years ago
    Hi

    I have just tried your vba code and it makes sense how to use it however on my master spreadsheet for this to work it is slightly more complicated

    firstly i'd want when i run the code for the results to populate horizontally

    secondly the cell id use as a reference like B6 is used doesnt correpsond on the other spreadsheets - so to explain the value id want to find appears in the same cell on each sheet but this doesnt correspond onto the master spreadsheet

    hope this makes sense

    please help!!
  • To post as a guest, your comment is unpublished.
    Abhishek Mishra · 3 years ago
    hi

    Thank you for you coding its really great and so much helpful for us.

    In this above VBA code how can I exclude the hidden worksheet? As I have different customer whom I billed them monthly using a format. So I have created few worksheet and hide them and from where I extract the different data from this hidden sheet.

    So please let me know the coding so that it doesn't pick the cell value from hidden worksheet.

    Your work is highly appreciated and thak you for your wonderful support!

    Regards
    Abhishek
  • To post as a guest, your comment is unpublished.
    James · 3 years ago
    How would I reference a specific cell as opposed to the cell that I have selected in another workbook?
  • To post as a guest, your comment is unpublished.
    Keith · 4 years ago
    You missed single quotes in line 16 of the VBA code.

    This code is correct:

    Sub AutoFillSheetNames()
    'Update 20131202
    Dim ActRng As Range
    Dim ActWsName As String
    Dim ActAddress As String
    Dim Ws As Worksheet
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set ActRng = Application.ActiveCell
    ActWsName = Application.ActiveSheet.Name
    ActAddress = ActRng.Address(False, False)
    Application.ScreenUpdating = False
    xIndex = 0
    For Each Ws In Application.Worksheets
    If Ws.Name ActWsName Then
    ActRng.Offset(xIndex, 0).Value = "='" & Ws.Name & "'!" & ActAddress
    xIndex = xIndex + 1
    End If
    Next
    Application.ScreenUpdating = True
    End Sub
  • To post as a guest, your comment is unpublished.
    fra · 5 years ago
    ANd what if I want to specify the cell not clicking on it but writing it? how would the code change?
    thanks!
  • To post as a guest, your comment is unpublished.
    ihiasat · 5 years ago
    thanks a lot it's very useful :roll: