将Excel中的记录复制到特定日期

时间:2018-05-28 08:09:22

标签: excel vba excel-vba

我正在尝试复制一个唯一的行(例如,使用PUMP的行),“x”次。最终,间隔应基于列频率(Frequentie)。记录应复制到上述日期,例如,到达01-01-2023时。首先应该完成第一行,当完成后,需要为第二行完成。这样可以创建可在Power BI中使用的数据集。有人可以帮我解决这个问题吗?

附图中给出了当前数据集的示例。

非常感谢提前!

Example data structure

1 个答案:

答案 0 :(得分:1)

显示到目前为止您尝试过的内容总是一个好主意,因为询问问题的方式看起来就像是在询问整个解决方案,而无需您网站的任何输入。这有点违反了SO的规则。但是,这可以帮助您入门:

  1. 从excel表中读取日期。与firstDate = Range("L2")
  2. 一样
  3. 找到最大和最小日期。它们将是firstDatelastDate
  4. 了解循环和复制Excel范围。
  5. 尝试在firstDatelastDate之间进行循环,并在循环中复制范围valeus。
  6. 这是一个循环示例,在新行上写两个日期之间的日期:
  7. Public Sub TestMe()
    
        Dim firstDate As Date
        Dim lastDate As Date
        Dim cnt As Long
    
        firstDate = DateSerial(2010, 12, 1)
        lastDate = DateSerial(2011, 12, 1)
    
        For cnt = 1 To lastDate - firstDate
            Cells(cnt, 1) = CDate(firstDate + cnt)
        Next cnt
    
    End Sub