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 select and highlight diagonal cells in Excel?

In Excel, we usually need to select multiples cells, but have you ever tried to select and highlight the diagonal cells in a range? In this article, I will introduce a VBA coed to quickly select diagonal cells for you.

Select and highlight diagonal cells


Select and highlight diagonal cells


To select diagonal cells, you can use a macro code.

1. Select the cell you want to start the diagonal selection and press Alt + F11 keys to enable the Microsoft Visual Basic for Applications window.

2. Click Insert > Module and paste below code to the script.

VBA: Select diagonal cells

Sub selectDiag()
'UpdatebyExtendoffice20171128
    Dim I As Long
    Dim xCount As Long
    Dim xRg As Range
    On Error Resume Next
    Set xRg = ActiveCell
    If xRg Is Nothing Then Exit Sub
    xCount = Val(InputBox("How many cells do you want to select diagonally?", "KuTools For Excel"))
    If xCount = 0 Then Exit Sub
    For I = 1 To (xCount - 1)
        Set xRg = Union(xRg, ActiveCell.Offset(I, I))
    Next I
    xRg.Select
End Sub

3. Press F5 key and a dialog pops out to remind you to select cells, type the number of diagonal cells you want to select in the textbox.
doc select diagonal 1

4. Click OK. The diagonal cells in the selection have been selected.
doc select diagonal 2

Then you can highlight the cells with the background color.
doc select diagonal 3


Select Cells with Error Value (quickly select non-blank cells from a selection or whole sheet.)

doc count error value

Relative Articles



Excel Productivity Tools

Kutools for Excel - The Best Office Productivity Tool

  • Brings 300 powerful advanced features to Excel, enable you to do smarter, faster and better.
  • No longer need memorizing formulas and VBA codes, give your brain a rest from now on.
  • Become an Excel expert in 3 minutes, Complicated and repeated operations can be done in seconds, 
  • Reduce thousands of keyboard & mouse operations every day, say goodbye to occupational diseases now.
  • 110,000 highly effective people and 300+ world-renowned companies' choice.
  • 60-day full features free trial. 60-day money back guarantees. 2 years of free upgrade and support.

Office Tab - brings tabbed interface to Office, 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!
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.

Be the first to comment.