首页 文章

VBA-搜索工作表名称来自范围..然后从范围表复制，粘贴转置到该工作表名称

提问于
浏览 次
0

抱歉 . 这是我今天的最后一个问题 . 在我问之前，我一直在努力寻找答案 . 我感谢你们给予的所有帮助 .

我有下面的宏代码..我的代码限制是我必须在范围内键入每个单词以搜索它的匹配表名 . 但是，我希望vba从 each word 中找到工作表_1345110中的范围r2：r19中的工作表名称 . 复制活动单元格行T：AE并将pastevalue转置到找到的工作表（本例中为CDH）范围'D4:D15'

Sub PasteBudget()
    Sheets("instructions").Select
    Columns("R2:R19").Select
    On Error Resume Next
    Selection.Find(What:="CDH", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
    'If Err.Number = 91 Then
        'MsgBox "ERROR: 'CDH' could not be found."
    '  End
    'End If

    Dim intRow As Integer
    intRow = ActiveCell.Row
    range("T" & intRow & ":AE" & intRow).Copy

    Sheets("CDH").Select
    range("D4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True    
End Sub
excel excel-vba vba

2 回答

  • 0

    这应该做你想要的没有任何错误：

    Sub PasteBudget()
  Dim rng As Range
  With Sheets("instructions")
    Set rng = .Range("R2:R19").Find("CDH", , xlFormulas, 2, , 1, 0, , 0)
    If Not rng Is Nothing Then
      Intersect(rng.EntireRow, .Columns("T:AE")).Copy
      Sheets("CDH").Range("D4").PasteSpecial xlPasteValues, , , 1
    End If
  End With
End Sub

    EDIT
    在您编辑之后，这应该做：

    Sub PasteBudget()
  Dim rng As Range, sh As Worksheet
  With Sheets("instructions")
    For Each sh In Worksheets
      Set rng = .Range("R2:R19").Find(sh.Name, , xlFormulas, 2, , 1, 0, , 0)
      If Not rng Is Nothing And sh.Name <> .Name Then
        Intersect(rng.EntireRow, .Columns("T:AE")).Copy
        sh.Range("D4").PasteSpecial xlPasteValues, , , 1
      End If
    Next
  End With
End Sub
    回复于
  • 1

    你可以编写简单的代码：

    Dim sheetCDH as Worksheet
Set sheetCDH =ThisWorkbook.Sheets("CDH ")
ThisWorkbook.Sheets("instructions").Range("T" & intRow & ":AE" & intRow).Copy Destination:=sheetCDH .Cells(4, 4)
    回复于

相关问题