如何在Excel中单击将单元格自动复制到剪贴板？
通常，将单元格复制到剪贴板时，需要先选择该单元格，然后按 按Ctrl + C 复制它的密钥。 如何通过单击单元格而不按热键来自动复制它？ 本文中的方法可以为您提供帮助。
通过单击VBA代码自动将单元格复制到剪贴板
下面的VBA代码可以通过在Excel中单击将单元格复制到剪贴板。 请执行以下操作。
1.打开要使单元格自动复制到剪贴板的工作表，右键单击工作表选项卡，然后选择 查看代码 从右键单击菜单中。 看截图：
2.在开幕 Microsoft Visual Basic应用程序 窗口，请将VBA代码复制到“代码”窗口中。
VBA代码：通过单击将单元格自动复制到剪贴板
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A9")) Is Nothing Then
Target.Copy
End If
End Sub
Note: In the code, A1:A9 is the cells you will copy to clipboard automatically. Please change it based on your need.
3. Press the Alt + Q keys to close the Microsoft Visual Basic for Applications window.
When clicking on any cell of range A1:A9, the cell will be copied automatically to the clipboard as below screenshot shown.
And then, you can select a destination cell and press Enter key to paste the copied contents.
Related articles:
- How to copy cells data with row height and column width in Excel?
- How to auto copy and paste cell in current sheet or from one sheet to another in Excel?
- How to disable cut, copy and paste functions in Excel?
- How to copy only borders of selected range in Excel?
The Best Office Productivity Tools
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. 60-day money back guarantee.
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!
