我正在设计一个 Excel 工作表，用户将在其中单击复制预定范围的单元格的命令按钮。然后，用户将使用 Firefox 或 IE 将内容粘贴到 Web 应用程序中。Web 应用程序的设计超出了我的控制范围，目前用于数据输入的文本框是富文本输入。当用户粘贴到文本中时，这会导致文本看起来很奇怪并且格式类似于 Excel。
Excel 中是否有一种方法可以使用 VBA 仅复制所选单元格的纯文本？没有格式，没有表格或单元格边框，只有文本，没有别的。我当前的解决方法宏是复制单元格，打开记事本，粘贴到记事本，然后从记事本复制以获取纯文本。这是非常不可取的，我希望有一种方法可以在 Excel 本身中做到这一点。请让我知道，谢谢！
像这样的东西？
Sheet1.Cells(1, 1).Copy
Sheet1.Cells(1, 2).PasteSpecial xlPasteValues
或者
selection.Copy
Sheet1.Cells(1,2).Activate
Selection.PasteSpecial xlPasteValues
Copy复制整个部分，但我们可以控制粘贴的内容。
同样适用于Range对象。
编辑
AFAIK，没有直接的方法可以仅复制范围的文本而不将其分配给 VBA 对象（变量、数组等）。有一个技巧适用于单个单元格，仅适用于数字和文本（无公式）：
Sub test()
Cells(1, 1).Select
Application.SendKeys "{F2}"
Application.SendKeys "+^L"
Application.SendKeys "^C"
Cells(1, 3).Select
Application.SendKeys "^V"
End Sub
但大多数开发人员避免SendKeys使用，因为它可能不稳定且不可预测。例如，上面的代码仅在从 excel 执行宏时才有效，而不是从VBA. 当从 运行时VBA，SendKeys打开对象浏览器，这是在 VBA 视图中按下 F2 时所做的 :) 此外，对于整个范围，您将必须循环遍历单元格，将它们一一复制并一一粘贴到应用程序。现在我想得更好，我认为这是一个矫枉过正..
使用数组可能更好。这是我最喜欢的关于如何将范围传递给 vba 数组并返回的参考： http ://www.cpearson.com/excel/ArraysAndRanges.aspx
就个人而言，我会避免SendKeys使用数组。应该可以将VBA数组中的数据传递给应用程序，但是如果不了解应用程序的更多信息就很难说。
实际上，最好的方法是复制单元格并粘贴到记事本中。记事本无法识别单元格。然后，您可以将文本复制回您想要的任何单元格。这适用于将文本从多个单元格复制到单个单元格中。
试试这个来复制你选择的任何单元格：
Sub CopyTheCell()
Dim TheText As String
TheText = Selection
ToClipboard TheText
End Sub
Function ToClipboard(Optional StoreText As String) As String
'PURPOSE: Read/Write to Clipboard
'Source: ExcelHero.com (Daniel Ferry)
Dim x As Variant
'Store as variant for 64-bit VBA support
x = StoreText
'Create HTMLFile Object
With CreateObject("htmlfile")
With .parentWindow.clipboardData
Select Case True
Case Len(StoreText)
'Write to the clipboard
.setData "text", x
Case Else
'Read from the clipboard (no variable passed through)
Clipboard = .GetData("text")
End Select
End With
End With
End Function
如果您要处理大量要复制的单元格，则 selection.copy 方法将非常慢。（我在 200 000 条记录上运行宏时遇到过这种情况）。
一种性能提高 100 倍的方法是直接将一个单元格的值分配给另一个单元格。我的代码示例：
With errlogSheet
'Copy all data from the current row
reworkedErrorSheet.Range("A" & reworkedRow).Value = .Range("A" & currentRow).Value
reworkedErrorSheet.Range("B" & reworkedRow).Value = .Range("B" & currentRow).Value
reworkedErrorSheet.Range("C" & reworkedRow).Value = .Range("C" & currentRow).Value
reworkedErrorSheet.Range("D" & reworkedRow).Value = .Range("D" & currentRow).Value
reworkedErrorSheet.Range("E" & reworkedRow).Value = .Range("E" & currentRow).Value
在 Excel 2013 中，您可以使用快捷方式执行此操作。
按Ctrl+ Alt+V打开粘贴专用窗口。现在您可以单击值单选按钮，或者V如果您的 Excel 是英文的，则只需按下。如果您不使用英文版 Excel，您可以通过查看单个字母的下划线来查看可以按下哪个按钮来选择所需的选项。
最后按Enter粘贴您复制的选择。
对我来说，这仅复制了日期列中的文本值
Worksheets("Shee1").Cells(2, "A").Text
这可以很容易地解决，而无需使用 VBA。
用户可以通过Ctrl+ Shift+粘贴剪贴板的内容，V而不是更常见的Ctrl+ V（按格式粘贴）。
Ctrl++将Shift剪贴板V内容粘贴为纯文本。
为此，我会将选定的单元格复制到剪贴板，将剪贴板保存到文本变量，然后将此文本复制回剪贴板。
将以下内容复制到新模块中，然后运行最后一个子：
'Handle 64-bit and 32-bit Office
#If VBA7 Then
Private Declare PtrSafe Function GlobalUnlock Lib "kernel32" (ByVal hMem As LongPtr) As LongPtr
Private Declare PtrSafe Function GlobalLock Lib "kernel32" (ByVal hMem As LongPtr) As LongPtr
Private Declare PtrSafe Function GlobalAlloc Lib "kernel32" (ByVal wFlags As LongPtr, _
ByVal dwBytes As LongPtr) As LongPtr
Private Declare PtrSafe Function CloseClipboard Lib "user32" () As LongPtr
Private Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
Private Declare PtrSafe Function EmptyClipboard Lib "user32" () As LongPtr
Private Declare PtrSafe Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, _
ByVal lpString2 As Any) As LongPtr
Private Declare PtrSafe Function SetClipboardData Lib "user32" (ByVal wFormat As LongPtr, _
ByVal hMem As LongPtr) As LongPtr
#Else
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, _
ByVal dwBytes As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, _
ByVal lpString2 As Any) As Long
Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat _
As Long, ByVal hMem As Long) As Long
#End If
Const GHND = &H42
Const CF_TEXT = 1
Const MAXSIZE = 4096
Function ClipBoard_SetData(MyString As String)
'PURPOSE: API function to copy text to clipboard
'SOURCE: www.msdn.microsoft.com/en-us/library/office/ff192913.aspx
'Link: https://www.thespreadsheetguru.com/blog/2015/1/13/how-to-use-vba-code-to-copy-text-to-the-clipboard
#If VBA7 Then
Dim hGlobalMemory As LongPtr, lpGlobalMemory As LongPtr
Dim hClipMemory As LongPtr, x As LongPtr
#Else
Dim hGlobalMemory As Long, lpGlobalMemory As Long
Dim hClipMemory As Long, x As Long
#End If
'Allocate moveable global memory
hGlobalMemory = GlobalAlloc(GHND, Len(MyString) + 1)
'Lock the block to get a far pointer to this memory.
lpGlobalMemory = GlobalLock(hGlobalMemory)
'Copy the string to this global memory.
lpGlobalMemory = lstrcpy(lpGlobalMemory, MyString)
'Unlock the memory.
If GlobalUnlock(hGlobalMemory) <> 0 Then
MsgBox "Could not unlock memory location. Copy aborted."
GoTo OutOfHere2
End If
'Open the Clipboard to copy data to.
If OpenClipboard(0&) = 0 Then
MsgBox "Could not open the Clipboard. Copy aborted."
Exit Function
End If
'Clear the Clipboard.
x = EmptyClipboard()
'Copy the data to the Clipboard.
hClipMemory = SetClipboardData(CF_TEXT, hGlobalMemory)
OutOfHere2:
If CloseClipboard() = 0 Then
MsgBox "Could not close Clipboard."
End If
End Function
Function ClipBoard_GetData() As String
' Return the data in clipboard as text
' Source: https://docs.microsoft.com/en-us/office/vba/access/concepts/windows-api/retrieve-information-from-the-clipboard
#If VBA7 Then
Dim lpGlobalMemory As LongPtr, hClipMemory As LongPtr
Dim lpClipMemory As LongPtr
Dim RetVal As LongPtr
#Else
Dim lpGlobalMemory As Long, hClipMemory As Long
Dim lpClipMemory As Long
Dim RetVal As Long
#End If
Dim MyString As String
If OpenClipboard(0&) = 0 Then
MsgBox "Cannot open Clipboard. Another app. may have it open"
Exit Function
End If
' Obtain the handle to the global memory
' block that is referencing the text.
hClipMemory = GetClipboardData(CF_TEXT)
If IsNull(hClipMemory) Then
MsgBox "Could not allocate memory"
GoTo OutOfHere
End If
' Lock Clipboard memory so we can reference
' the actual data string.
lpClipMemory = GlobalLock(hClipMemory)
If Not IsNull(lpClipMemory) Then
If lpClipMemory <> 0 Then
MyString = Space$(MAXSIZE)
RetVal = lstrcpy(MyString, lpClipMemory)
RetVal = GlobalUnlock(hClipMemory)
' Peel off the null terminating character.
MyString = Mid(MyString, 1, InStr(1, MyString, Chr$(0), 0) - 1)
Else
MsgBox "Clipboard is empty!"
End If
Else
MsgBox "Could not lock memory to copy string from."
End If
OutOfHere:
RetVal = CloseClipboard()
ClipBoard_GetData = MyString
End Function
Sub CopySelectedCellsAsText()
' Copy selected cells to clipboard, save the clipboard to a text variable,
' and then copy this text back to clipboard
If TypeName(Selection) <> "Range" Then Exit Sub
Selection.Copy
Dim strSelection As String
strSelection = ClipBoard_GetData
Application.CutCopyMode = False
ClipBoard_SetData strSelection
End Sub
在 Excel 中，突出显示有问题的单元格。按 F2。CTRL+Shift+主页。（这会突出显示单元格的全部内容。） CTRL+C。转到目标应用程序。CTRL+V。它看起来有很多步骤，但当你真正做到这一点时，它比使用功能区完成同样的操作要快得多。
如果您需要将多个单元格复制到没有“选择性粘贴...”功能的应用程序中，请从 Excel 中定期复制并粘贴到记事本中，然后从记事本中复制并粘贴到目标位置。很麻烦，但是很管用。