所以我的问题很简单＆＃34;如何从工作簿中提取和排序数据到另一个＆＃34;？
由于另一个文件（＆＃34;使用的设备＆＃34;），我有一个通过网络发送的文件（让它命名为＃34;设备＆＃34;）当天人们使用的一些设备。它没有安排数据。
我想做的是从该文档中获取该数据，并将其作为另一个工作簿中的表进行排序。
我知道我必须声明工作簿和工作表，但是如何根据我的知识提取和排序数据（是的，我是vba的新手）。
此致 亚历
答案 0 :(得分：0)
我认为你应该首先宣布子程序。根据您的问题，首先应该是声明您的任务所需的每个工作簿。
你应该做的第二件事是声明一个for循环语句，它会检查你的标准是否符合你的请求，只需使用Range语句就可以移动它。
希望这有帮助， 亚历
答案 1 :(得分：0)
这是我的代码，直到现在。但我的问题是我不知道如何根据我的IF中的数据复制所有数据。
Sub timp_sortare_deviceuri（）
Dim HPS13 As Workbook 设置HPS13 = ActiveWorkbook
Dim sheet_date As Worksheet 设置sheet_date =表格（＆＃34; Sheet1＆＃34;）
Dim HPS1 As Workbook
Dim ultimul_rand_detectat As Integer
Application.Workbooks.Open（＆＃34; C：\ Users \ Piulitsa \ Desktop \ HPS1.xlsx＆＃34;）
设置HPS1 = ActiveWorkbook
ultimul_rand_detectat = HPS1.Sheets（＆＃34; Sheet1＆＃34;）。Cells（Rows.Count，1）.End（xlUp）.Row
＆＃39; Debug.Print ultimul_rand_detectat
对于rand = 1到ultimul_rand_detectat
urmatorul_rand = HPS13.Sheets（＆＃34; Sheet1＆＃34;）。Cells（Rows.Count，11）.End（xlUp）.Row + 1
如果是HPS1.Sheets（＆＃34; Sheet1＆＃34;）。范围（＆＃34; A＆＃34;＆amp; rand）.Value =＆＃34;数据文件：＆＃34;然后
HPS13.Sheets("Sheet1").Range("K" & urmatorul_rand).Value = HPS1.Sheets("Sheet1").Range("B" & rand).Value
结束如果
下一个兰德
End Sub