-1
A
回答
0
这里是宏观 -
Sub perform()
Application.ScreenUpdating = False
Sheets("Sheet2").Range("A2:D50000").ClearContents
Dim rowcount, datacount, lastrow As Integer
rowcount = Sheets("Sheet1").Range("A500000").End(xlUp).Row
datacount = Sheets("Sheet1").Range(Sheets("Sheet1").Range("H5"), Sheets("Sheet1").Range("H5").End(xlToRight)).Count
Sheets("Sheet2").[A2] = "Code"
Sheets("Sheet2").[B2] = "Ref"
Sheets("Sheet2").[C2] = "Amount"
Sheets("Sheet2").[D2] = "Quantity"
For i = 5 To rowcount
lastrow = Sheets("Sheet2").Range("A500000").End(xlUp).Row + 1
Sheets("Sheet2").Range("A" & lastrow & ":A" & lastrow + datacount - 1).Value = Sheets("Sheet1").Range("A" & i).Value
Sheets("Sheet1").Range("H4:L4").Copy
Sheets("Sheet2").Range("B" & lastrow & ":B" & lastrow + datacount - 1).PasteSpecial Transpose:=True
Sheets("Sheet1").Range("H" & i & ":L" & i).Copy
Sheets("Sheet2").Range("C" & lastrow & ":C" & lastrow + datacount - 1).PasteSpecial Transpose:=True
Sheets("Sheet1").Range("G" & i).Copy Sheets("Sheet2").Range("D" & lastrow)
Next i
Application.ScreenUpdating = True
End Sub
相关问题
- 1. Excel宏格式化数据
- 2. VBA Excel:从CSV文件中以特定格式提取数据
- 3. 在Excel中读取Excel数据和单元格格式#
- 4. 从linq excel表格读取多个excel表格中的数据(http://code.google.com/p/linqtoexcel/)
- 5. 从excel表格中读取数据并在同一张excel表格中写入
- 6. Excel宏将格式不正确的数据复制到表中
- 7. 获取python中的表格excel数量
- 8. 如何从excel数据中读取特定单元格到Pyomo
- 9. Excel条件格式宏
- 10. Excel格式化:宏与XSLT
- 11. 的Excel宏表和正确格式的数据
- 12. ajax获取Excel表格php
- 13. 从Excel定义表格中插入Excel表格Where Where子句
- 14. 从Excel电子表格获取单元格样式与C#
- 15. VBA为不同格式的数据获取新工作表Excel
- 16. 如何使用Excel宏模块格式化Excel电子表格单元格?
- 17. 从数据库中生成excel表格
- 18. Word中的Excel表格部分用宏
- 19. 如果公式 - EXCEL - 从另一个单元格获取数据
- 20. 使用r提取Excel表格中的表格数据
- 21. 根据excel中的一个单元格状态从一张表格中获取数据到其他表格中。
- 22. 只从网站提取特定表格到Excel中
- 23. 从Excel工作表中提取特定单元格
- 24. 宏在Excel中格式化y轴
- 25. C#Interop Excel格式,如Excel的格式,如表格
- 26. Excel数据格式化
- 27. 从Excel表格中提取数据放置Sharepoint并使用VBA在同一Excel表格中更新数据
- 28. 从VB.NET Excel表格中的实时更新数据表格
- 29. 以特定格式将数据写入Excel中
- 30. 如何在excel表格中获得正确的数字格式
这个data1是基础量子ty正确吗? –