Question

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

例如，我以表格格式获得了以下数据;

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

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

02/03/2011
  约翰
  -20.00
  @
  05/03/2011
  彼得
  30.89
  @
  05/03/2011
  安东尼
  988.00
  ...
  ..
  点。

可以这样做吗？

我只能为第一行工作，我怎么能继续使用subsequce？

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

Answer 1

你需要制作一个循环，比如

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

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

1 个答案: