我无法找到或创建VBA代码,允许从一个细胞中的另一个工作表(Sheet2中)到另一个工作表(工作表Sheet1)以前创建的注释粘贴复制的文本。将文本粘贴到Excel中评VBA
这里是我已经成功迄今编译的代码,而我停留在如何让发现到注释中的文本。
Sub For_Reals()
'Add Comment
Sheets("Sheet1").Range("F2").AddComment
Range("F2").Comment.Visible = False
'Find Value in Sheet2 based on Value from Sheet1
Dim FindString As String
Dim Rng As Range
FindString = Sheets("Sheet1").Range("F2").Value
If Trim(FindString) <> "" Then
With Sheets("Sheet2").Range("C:C")
Set Rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
Else
MsgBox "Nothing found"
End If
End With
End If
'Copy Value 4 cells to the right of found Value
Selection.Offset(0, 4).Copy
'Need Code to paste copied value in previously created comment
End Sub
Darren,非常感谢响应和简化代码。我遇到运行时错误'1004':当我尝试你的版本时,应用程序定义或对象定义的错误。该错误似乎在行中:表格(“Sheet1”)。范围(“F2”)。AddComment Rng.Offset(0,4).Value为什么我会收到错误的任何想法?我正在Microsoft Excel 2013中运行VBA。谢谢,Jeff –
它看起来像rng.Offset(0,4)是空白单元格时会抛出错误。我添加另一个变量“昏暗sCommentText作为字符串”,并设置该保持值“sCommentText = rng.Offset(0,4)。价值”,然后使用这个添加的文本“表(”工作表Sheet“ )。范围(“F2”)。AddComment sCommentText“ 然后它似乎并不介意空白单元格。 –
达伦,这个伎俩!我无法告诉你这是多么可怕,所以非常感谢你的帮助! –