How to select all cells with data in Excel?
When data stays in discontinuous cells, how do you select and copy the data? It will waste a lot of time to select all discontinuous cells with data one by one, especially the data stay in nearly random order. The following tricky way will help you select call cells with data in selections quickly.
Select all cells with data excluding formulas with Go to Special command
If there is not data calculated with formula, the Go to Special command can help you select all cells with data in selections easily.
Step 1: Select the range that you will work with, and then press F5 key to open the Go To dialog box.
Step 2: Click the Special button to get into Go To Special dialog box. Then check the Constants option, see screenshot:
Step 3: Click OK, then you will see all cells with contents excluding the formula cells are selected.
Note: This way is not able to select cells with formulas.
Select all cells with data including formulas with one click of Kutools for Excel
If you want to select the cells contain data both values and formulas with just fewer steps, here, I can introduce you an easy way, Kutools for Excel, with its Select Unblank Cells feature, you can select the data cells just a few clicks.
After installing Kutools for Excel, please do as follows:( Free Download Kutools for Excel Now )
Step1: Select the range that you want to select only the data cells.
Step2: Click Kutools > Select > Select Nonblank Cells, and then all the cells with data have been selected at once, see screenshot:
Free Download Kutools for Excel Now
Select all cells with data including formulas with VBA code
If you have cells filled with formulas, you can select all cells with data in selection with the following VBA code. Please do as this:
Step 1: Hold down the Alt + F11 keys in Excel to open the Microsoft Visual Basic for Applications window.
Step 2: Click Insert > Module, and paste the following macro in the Module Window.
VBA code: select all cells with data including formulas
Sub SelectNotBlackRange()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim OutRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
If Rng.Value <> "" Then
If OutRng Is Nothing Then
Set OutRng = Rng
Else
Set OutRng = Union(OutRng, Rng)
End If
End If
Next
If Not OutRng Is Nothing Then
OutRng.Select
End If
End Sub
Step 3: Then press F5 key to run this code, and a prompt box will pop out to tell you to select a range that you want to select the data cells.
Step 4: After selecting the range, then click OK, and all the data cells including formulas in the range has been selected.
Related articles:
Select non-adjacent cells or ranges
Deselect cells from selected ranges
Reverse selections of selected ranges
Best Office Productivity Tools
Supercharge Your Excel Skills with Kutools for Excel, and Experience Efficiency Like Never Before. Kutools for Excel Offers Over 300 Advanced Features to Boost Productivity and Save Time. Click Here to Get The Feature You Need The Most...
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!
All Kutools add-ins. One installer
Kutools for Office suite bundles add-ins for Excel, Word, Outlook & PowerPoint plus Office Tab Pro, which is ideal for teams working across Office apps.
- All-in-one suite ā Excel, Word, Outlook & PowerPoint add-ins + Office Tab Pro
- One installer, one license ā set up in minutes (MSI-ready)
- Works better together ā streamlined productivity across Office apps
- 30-day full-featured trial ā no registration, no credit card
- Best value ā save vs buying individual add-in