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 create a list from same cells across multiple sheets in Excel?

Supposing we deploy every monthly sales table in a separated worksheet as below screen shot shown, and all sales tables have the same layout. Now we want to create a list from all sum values (Cell E6) across multiple worksheets. How to get it done? And what if create a dynamic list from sum values of each worksheet? There are two ways for you:

doc create list multiple sheets 1

Create a list from same cells across multiple sheets with VBA

Create a dynamic list from same cells across multiple sheets with Kutools for Excel

Easily combine multiple worksheets/workbooks into single worksheet/workbook

It may be tedious to combine dozens of sheets from different workbooks into one sheet. But with Kutools for Excel’s Combine (worksheets and workbooks) utility, you can get it done with just several clicks! Full Feature Free Trial 60-day!

ad combine sheets books 1


With the following VBA code, you can create a list from the specified cells across multiple worksheets easily. You can do as follows:

Step 1: Select the specified cell that you will create your list from. In our case, we select the Cell E6.

Step 2: Press Alt + F11 keys simultaneously to open the Microsoft Visual Basic for Applications window, click Insert > Module, and then paste the following code into the module window.

VBA: Create a list from same cells across multiple sheets

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub

Step 3: Press F5 key or click the Run button to run this VBA.

Then all values from the specified cell on all worksheets are copied to a new worksheet named KutoolsforExcel. See screen shot:

doc create list multiple sheets 2

This VBA will fill the list into a new worksheet, and the values in the list are static which won’t change with the original values.

However, sometimes you may want to fill the list into specified range, and require the list values always be correspondence with the original values in specified cells all the time. To meet these needs, you should try the following method.


This method will introduce Kutools for Excel’s Dynamically Refer to Worksheets utility to create a dynamical list from same cells across multiple worksheets.

Kutools for Excel - Combines more than 300 Advanced Functions and Tools for Microsoft Excel

Step 1: Select the Range where you will fill the dynamic list, and click the Kutools > More > Dynamically Refer to Worksheets.

doc dynamically refer to sheets 1

Step 2: In the opening Fill Worksheets References dialog box,

doc create list multiple sheets 5

(1) Click the Fill Order box, and select a fill type from the drop down list. In our case, we select Fill Vertically cell after cell;

(2) In the Fill formula box, specify the cell address which you will create a dynamic list from, and then click the Lock button  to lock the formula.

(3) Click the Fill Range button.

Now you will see values in the specified cells across all worksheets are filled into the specified range as below screen shot shown:

When the original values changed, the corresponding values in this specified list will be changed automatically.

Kutools for Excel - Includes more than 300 handy Excel tools. Full feature free trial 60-day, no credit card required! Get it now!


In this Video, the Kutools tab and the Kutools Plus tab are added by Kutools for Excel. If need it, please click here to have a 60-day free trial without limitation!



Recommended Productivity Tools

Ribbon of Excel (with Kutools for Excel installed)

300+ Advanced Features Increase Your Productivity by 71%, and Help You To Stand Out From Crowd!

Would you like to complete your daily work quickly and perfectly? Kutools For Excel brings 300+ cool and powerful advanced features (Combine workbooks, sum by color, split cell contents, convert date, and so on...) for 1500+ work scenarios, helps you solve 82% Excel problems.

  •  Deal with all complicated tasks in seconds, help to enhance your work ability, get success from the fierce competition, and never worry about being fired.
  •  Save a lot of work time, leave much time for you to love and care the family and enjoy a comfortable life now.
  •  Reduce thousands of keyboard and mouse clicks every day, relieve your tired eyes and hands, and give you a healthy body.
  •  Become an Excel expert in 3 minutes, and get admiring glance from your colleagues or friends.
  •  No longer need to remember any painful formulas and VBA codes, have a relaxing and pleasant mind, give you a thrill you've never had before.
  •  Spend only $39, but worth than $4000 training of others. Being used by 110,000 elites and 300+ well-known companies.
  •  60-day unlimited free trial. 60-day money back guarantee. Free upgrade and support for 2 years. Buy once, use forever.
  •  Change the way you work now, and give you a better life immediately!

Office Tab Brings Efficient And Handy Tabs to Office (include Excel), Just Like Chrome, Firefox, And New IE

  • Increases your productivity by 50% when viewing and editing multiple documents.
  • Reduce hundreds of mouse clicks for you every day, say goodbye to mouse hand.
  • Open and create documents in new tabs of same window, rather than in new windows.
  • Help you work faster and easily stand out from the crowd! One second to switch between dozens of open documents!
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.
    Alan Mayo · 9 months ago
    Very helpful bit of coding, saved hours of work creating a table from lots of separate data worksheets
  • To post as a guest, your comment is unpublished.
    Jeff · 2 years ago
    Thank you very much for this. Just saved me hours of work as I had to go through 200 sheets doing data input...
    One thing to note for people is to click the cell you want it to use prior to opening ip and running the macro. Scratched my head for a couple minutes as the worksheet was opening up but didn't know why the information wasn't showing