excel - excel vba数据从一张表传输到另一张错误只有标题复制没有任何数据
问题描述
excel vba数据从一张表传输到另一张错误只有标题复制没有任何数据这是代码
Sub transferData()
Application.ScreenUpdating = False
'Dim myData As Worksheet, ItemA As Worksheet, ItemB As Worksheet, ItemC As Worksheet, ItemD As Worksheet, ItemE As Worksheet
Dim Item As String
Dim price As Long, Quantity As Long
Dim r1 As Long, erow As Long
r1 = 1
Sheets(Array("Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6")).Select
Sheets("Sheet2").Activate
ActiveSheet.Cells.Select
Selection.Clear
Sheets(Array("Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6")).Select
Sheets("Sheet2").Activate
Sheets("Sheet2").Range("A1").Select
ActiveCell.Value = "Item"
Sheets("Sheet2").Range("B1").Select
ActiveCell.Value = "price"
Sheets("Sheet2").Range("C1").Select
ActiveCell.Value = "Quantity"
myData.Activate
Do While Cells(r1, 1) <> ""
Item = Cells(r1, 2).Value
r1 = r1 + 1
price = Cells(r1, 2).Value
r1 = r1 + 1
qty = Cells(r1, 2)
r1 = r1 + 1
p = Worksheets.Count
For q = 1 To p
If ActiveWorkbook.Worksheets(q).CodeName = UCase(ItemName) Then
Worksheets(q).Activate
erow = Worksheets(q).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(erow, 1).Value = ItemName
Cells(erow, 2).Value = price
Cells(erow, 3).Value = qty
End If
Next q
myData.Activate
Loop
Application.ScreenUpdating = True
End Sub
解决方案
工作表变量myData
既不是Dim
ed 也不是Set
。
该变量ItemName
被使用但从未赋值。
可能还有其他问题
推荐阅读
- python - 根据另一个数据帧的横截面统计数据选择一个数据帧中的条目
- java - 使用 wscat 测试 Atmosphere Websocket
- spring-boot - 指定为非空的参数为空:无法更新 Spring Boot jpa 中的单个实体字段。导致指定为非空的参数为空
- javascript - 在每个故事的故事书中应用不同的主题
- python-3.x - 如何使用 python-pptx 更新 X 轴上的日期范围
- python-3.x - 为什么 Syntaxerror f-string: Expecting '}' 在我的代码中发生?
- java - 在 Flutter 中使用时无法从 Android 本机 (Java) 获取当前视图
- python - 如何立即使用函数的返回?
- scilab - Scilab xcos:在 Simulation -> Set Context 中运行脚本或定义函数
- laravel - Laravel 中基于事件的触发控制台命令