首页 文章

将其他工作表中的合并单元格复制到摘要表中的一个单元格中

提问于
浏览
1

我有一个工作簿,其中包含一个摘要表,并根据命令更新新工作表(更改名称,从指定路径导入) . 在摘要表中,我想收集其他表中的特定信息(所有这些信息都填写了相同的模板,并填入了不同的信息) .

例如,我想将Sheet X ,Sheet Y 和Sheet Z 中的合并范围 B3:O3 复制到Summary Sheet中的Cells A2, B2, C2 中 .

问题:

A)如何复制信息?

B)如何将命令链接到现有的“Refresh Sheets”命令,该命令使用指定文件夹中的更新信息填充工作簿?

VBA比较新,所以如果问题是基本的,请原谅 . 谢谢!

1 回答

  • 0

    假设 B3:O3 是合并范围,则从每个范围中取左上角的单元格 . Sub RefreshSheets 代表您现有的命令,然后在该代码中调用新的子 GetInfo .

    像这样

    Option Explicit
    
    Public Sub RefreshSheets()
    
        'Your current refresh code
         GetInfo  'call to other sub
    
    End Sub
    
    Public Sub GetInfo()
    
    Dim wb As Workbook
    Set wb = ThisWorkbook
    
    With wb.Worksheets("Summary Sheet")
    
       .Range("A2") = wb.Worksheets("X").Range("B3")
       .Range("B2") = wb.Worksheets("Y").Range("B3")
       .Range("C2") = wb.Worksheets("Z").Range("B3")
    
    End With
    
    
    End Sub
    

    如果使用可变工作表名称,您可以按位置分配,例如

    Sheets(Sheets.Count)
    

    或者使用变量

    Dim X As String
    X = "X"
    
    Sheets(X)
    

相关问题