Question

我在单行（第44行）的工作表中有一些数据，其中所需的数据位于列C，F，I，L等中（即从C开始每隔3列需要一次数据）。

这在“ET”栏

结束

我需要解压缩并将其粘贴到另一个没有列空格的工作表行中。

我一直在寻找解决方案，但通常是列，但这是我需要的数据。

Answer 1

假设即使第44行中的数据发生变化也需要这样做，你可以做一个宏。在一个过程中，以下代码可以作为指南：

Public Sub copyover()
  Dim c As Long
  For c = 1 To 50
    Worksheets("Sheet2").Cells(1, c).Value = _
     Worksheets("Sheet1").Cells(44, c * 3).Value
  Next
End Sub

Answer 2

这必须是一个宏吗？将其放在另一个工作表的第一个目标单元格中：

=INDEX(Sheet1!$C$44:$ET$44,1,3*(COLUMN(A1)-1)+1)

然后复制

从单行提取数据并粘贴到新工作表中

2 个答案: