Excel 如何使用vba选择粘贴范围

我编写了一些代码，用于选择特定行并使用paste special属性按列粘贴它。它工作正常我的代码是：

lngRow = Me.TextBox4.Value
strCol = Me.TextBox5.Value
Set rng = Range("A:A").Find(What:=lngRow, LookIn:=xlValues, LookAt:=xlWhole)
If rng Is Nothing Then
MsgBox "Value not found in row 1", vbExclamation
Else
 Range(rng, rng.End(xlToRight)).Copy
 Range("A1:E3").Columns(strCol).Offset(, 1).PasteSpecial Transpose:=True
 Range("A1:E3").Rows(1).Copy
 Range("A1:E3").Columns(strCol).PasteSpecial Transpose:=True
endif

这里的问题是我正在使用 范围（rng，rng.End（xlToRight））。复制 复制值的步骤 对于粘贴，我使用Range（“A1:E3”）.Columns（strCol）.Offset（，1）.paste特殊转置：=True

---

如何粘贴复制的所有值？因为如果值在F列中，则此宏不会粘贴这些值。

此代码将粘贴整行（如果找到），并从第1行开始将其转换为给定列

如果必须从不同的行或列开始，您应该能够适应它

lngRow = Me.TextBox4.Value
strCol = Me.TextBox5.Value

Set rng = Range("A:A").Find(What:=lngRow, LookIn:=xlValues, LookAt:=xlWhole)
If rng Is Nothing Then
MsgBox "Value not found in row 1", vbExclamation
Else
 Range(Rng, Rng.End(xlToRight)).Copy
 Cells(1, strCol).PasteSpecial Transpose:=True
End If

---

请在else部分更详细地解释您的代码，以及您正试图实现的目标。我现在猜，你想把一整行，转换成一列，复制到另一列，对吗？好的，基于此，我给了你一个答案。作为一个友好的提醒：如果您的问题有助于您解决问题，您愿意接受这些问题的一些答案，那就太好了。非常感谢您，但我想将值粘贴到列（strcol）。偏移（，1）。好的，没问题，所以您只使用了

列（strcol）。偏移（，1）.PasteSpecial Transpose:=True

istead of

单元格（1，strCol）。PasteSpecial Transpose:=True

那么。您好，有人能告诉我如何在vba中将intger转换为chartcer吗？。我使用的是Chr（dest+64），但它没有显示正确的值。提前谢谢。