首页 文章

宏水平复制到一行中的另一个工作表

提问于
浏览 次
0

想知道是否有办法以表格格式从一个Excel工作表中复制数据并通过宏转换为excel 2007的单行数据？

例如，我有表格格式的以下数据;

日期 - 名称 - 金额02/03/2011 - 约翰 - -20.00 05/03/2011 - 彼得 - 30.89 05/03/2011 - 安东尼 - 988.00 ........

宏应该最终将上面的数据复制到另一个excel表格中，并连续水平（转置）一个，并添加“@”作为分隔符 .

02/03/2011 John -20.00 @ 05/03/2011 Peter 30.89 @ 05/03/2011 Anthony 988.00 ...... ..

可以这样做吗？

我只能在第一线工作，我怎么能继续下一个？

范围（“A2：F2”） . 选择Selection.Copy Sheets（“Sheet2”） . 选择Selection.PasteSpecial Paste：= xlPasteAll，Operation：= xlNone，SkipBlanks：= _ False，Transpose：= True

excel

1 回答

  • 0

    你需要做一个循环，比如

    Dim workingrow As Range
For Each workingrow in UsedRange.Rows
  workingrow.Columns("A:F").Copy
  Sheets("Sheet2").Range("whereveryouwant").PasteSpecial Paste:=xlPasteAll, _
       Operation:=xlNone, SkipBlanks:= False, Transpose:=True
Next workingrow
    回复于

相关问题