小编Lea*_*aum的帖子

是的,我已经在其他人的帮助下为Microsoft Excel编写了这个宏(如果有帮助的话,那就是2010年).我想知道是否有人有办法缩短它,并使其更有效率.然而,它之前仍然得到了相同的结果？我可以在这里找到我需要使用的CSV格式的一个例子......是的,不幸的是,它们必须被放入那些列和单元格中.

我真正难以理解的唯一问题是:.Cell(2, 3)例如......如果你注意到,在每个部分它会复制和粘贴,它有一个新行..我希望它能做到这一点..我是新手,并找不到办法让它只是将每一个粘贴到下一个可用的行..所以我的解决方案是做2,3,4,5 ..等等..如果有人知道如何改变这个以及制作这个..循环？每说,这将是很大的帮助.只需循环播放正在复制的数据量,而不是重复.

这是一个示例CSV:Media Fire It's Clean,我保证.感谢您的时间.

宏代码将某些列/行数据单​​元格从一个工作表复制到另一个工作表到特定单元格

Sub FormatData()
Dim col As Integer

For col = 1 To 1
    With Worksheets(2)
       .Cells(2, 2) = Cells(1, col)
       .Cells(2, 3) = Cells(2, col) & ". " & Cells(3, col) & ". " & Cells(4, col) & ". " & Cells(5, col) & "."
       .Cells(2, 4) = Cells(7, col)
       .Cells(2, 5) = Cells(10, col)
    End With
Next col
    For col = 2 To 2
    With Worksheets(2)
       .Cells(3, …