将连续/连续范围的单元格从一个工作表复制粘贴到目标工作表中的合并单元格

时间:2018-01-23 12:36:43

标签: excel vba excel-vba

我在互联网上寻找解决方案,但无法找到或可能理解任何问题。我的excel vba知识有限,但我很擅长修改和使用现有的代码来满足我的目的。

我正在尝试从这张名为' Transactions DB'的交易表中复制一系列单元格(A:H)中的数据。从另一张名为' Dashboard'的表格的第24行开始到单元格(B:I)在同一本工作簿中。

问题在于'仪表板'有一些不可避免的合并细胞' C:D'并且' G:H'。在此处粘贴数据时,合并的单元格未合并,并且将单独的数据粘贴在C& D和G& H中,将它们视为2个不同的单元格。需要帮助以确保在粘贴数据时单元格C& D和G& H保持合并。我希望我已经正确地发布了我的问题给你帮助。

Sub FTCH_DATA()
  a = Worksheets("Transactions DB").Cells(Rows.Count, 1).End(xlUp).Row

  Application.ScreenUpdating = False
  Range("B24:J5000").ClearContents

  For i = 2 To a

    If Worksheets("Transactions DB").Cells(i, Range("F9")).Value = Worksheets("Dashboard").Range("E10") Then

      Worksheets("Transactions DB").Range("A" & i, "H" & i).Copy
      Worksheets("Dashboard").Activate
      b = Worksheets("Dashboard").Cells(Rows.Count, "B").End(xlUp).Row
      Worksheets("Dashboard").Cells(b + 1, 2).Select
      ActiveSheet.Paste
      Range("E10").Select

    End If

  Next

  Application.CutCopyMode = False
  Application.ScreenUpdating = True

End Sub

提前致谢!

0 个答案:

没有答案
相关问题