vba - Excel VBA PasteSpecial 不起作用

Question

您好，我正在尝试转置 Excel 中的链接，并且我正在为此目的编写一个宏。我遇到的唯一问题是 Pastespecial 选项不起作用。

Sub Transpose_Links()
'
' Transpose_Links Macro
'
' Hotkey: Ctrl+m
'

此时我的剪贴板上有想要转置的单元格然后我将它们粘贴到当前位置。然后可以更改它们因此链接保留在单元格的内容中

Sheets("wincc").Select
ActiveSheet.Paste Link:=True
Selection.Replace What:="=", Replacement:="xxx", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
Application.CutCopyMode = True
Selection.Cut

再次剪切更改后的信息后，我想询问粘贴它们的范围这是成功的，因为我已经尝试改变范围的值并且它起作用了。我也尝试过使用常规粘贴，但这也不起作用。我尝试在网站上搜索类似的问题，但没有找到。我也在msdn.microsoft.com上检查了该方法，但我没有提供太多信息。

Dim rRange As Range
Set rRange = Application.InputBox(Prompt:= _
            "Please select a range with your Mouse to be bolded.", _
                Title:="SPECIFY RANGE", Type:=8)
rRange.PasteSpecial Paste = xlPasteAll, Operation = xlNone, SkipBlanks = _
    False, Transpose:=True
rRange.Replace What:="xxx", Replacement:="=", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
End Sub

Answer 1

试试这个:

Sub Transpose_Links()
Dim rRange As Range

' Transpose_Links Macro
'
' Hotkey: Ctrl+m
'

Sheets("wincc").Select
ActiveSheet.Paste Link:=True

Selection.Replace What:="=", Replacement:="xxx", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
Application.CutCopyMode = True
Selection.Cut


Set rRange = Application.InputBox(Prompt:= _
            "Please select a range with your Mouse to be bolded.", _
                Title:="SPECIFY RANGE", Type:=8)

Selection.Copy
rRange.PasteSpecial Paste:=xlPasteAll, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=True


rRange.Replace What:="xxx", Replacement:="=", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
End Sub