Note: The other languages of the website are Google-translated. Back to English

Excel: How to expand cell to show all contents when click

In some cases, if the cell content is longer than the width of the cell and there are values in the next column cells, only parts of content are shown as the below screenshot shown. For avoiding changing the width and height of the cells, you can click the cell and view whole contents in the formula bar. But if the formula bar is hidden or shorter than the contents, how to do it? Here introduces a VBA which can show the cell content in a textbox when clicking at it.
auto complete from another list

Note: the methods provided in this tutorial are tested in Excel 2021, there may be some different in different Excel verisions.

Expand cell to show all contents when click

1. Activate the worksheet that you want to expand cell, click Developer > Insert > Text Box (ActiveX Controls).
auto complete from another list

If there is no Developer tab in the ribbon, please display it at first, please view this tutorial How To Show/Display Developer Tab In Excel Ribbon

2. Then drag the cursor to draw a textbox with a width and height which can show the longest contents of cells. Remember this textbox’s name, here is TextBox1.
auto complete from another list

3. Right-click at the textbox, and click Properties from the context menu. Then in Properties pane, choose True from drop-down lists in the MultiLine and WordWrap sections. Then close the Properties pane.
auto complete from another list  auto complete from another list

Or you can select True from the drop-down list in AutoSize section in Properties pane, the textbox will be auto sized based on the length of the cell contents you click.

4. Right-click at the sheet name tab in the status bar, and click View Code from the context menu.

5. In the Microsoft Visual Basic for Applications window, copy and paste below code to the blank script.

VBA: Expand cell to show contents

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRgAddress As String
xRgAddress = "A1:B4" 'the range this VBA work, if you leave it is blank, it work for whole sheet
If xRgAddress = "" Then
  With TextBox1
        .Top = Target.Top
        .Left = Target.Offset(, 1).Left
        .Text = Target.Text
        .Visible = True
    End With
    If Intersect(Target, Range(xRgAddress)) Is Nothing Then
        TextBox1.Visible = False
        With TextBox1
            .Top = Target.Top
           .Left = Target.Offset(, 1).Left
            .Text = Target.Text
            .Visible = True
        End With
    End If
End If
End Sub

auto complete from another list

Notice that TextBox1 is the name of the textbox you drew, and A1:B4 is the range this code work, change them as you need.

6. Go back to the sheet, click Developer > Design Mode to exist design mode.
auto complete from another list

Now when you click at the cell, the textbox will appear next to it, and show whole contents of the cell.
auto complete from another list

Other Operations (Articles)

How To Turn Off Auto Complete
Here is an option in Excel that can stop the auto complete.

How To Reduce Excel File Size?
Sometimes, it will take minutes to open or save if the Excel file is too large. For solving this problem, here in this tutorial, it tells you how to reduce the Excel file size by removing the contents or formats which are unnecessary or never used.

How To Auto Complete Cells From Another Table
In this tutorial, it is talking about how to auto complete other column cells from a table in another sheet after entering one column value.

How to apply shading to odd or even (alternative) rows/columns in Excel?
While designing a worksheet, many people tend to apply shading to odd or even (alternative) rows or columns in order to make the worksheet more visual. This article will show you two methods to apply shading to odd or even rows/columns in Excel.

  • 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 and Keeping Data; Split Cells Content; Combine Duplicate Rows and Sum/Average... 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...
  • Favorite and Quickly Insert Formulas, Ranges, Charts and Pictures; Encrypt Cells with password; Create Mailing List and send emails...
  • 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...
  • Pivot Table Grouping by week number, day of week and more... Show Unlocked, Locked Cells by different colors; Highlight Cells That Have Formula/Name...
kte tab 201905
  • 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
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
Rate this post:
0   Characters
Suggested Locations