求大神老师们解答：从另一个表格中提取数据，删除并保存

gitigou · 发表于 2018-9-7 21:17

想做一个表格，从“密码表格“中提取数据到“工作簿1”表格中，然后删除已提取的数据，最后保存。详情见图和表格，求各位老师大神们解答，谢谢

提取数据.zip (16.5 KB, 下载次数: 8)
提取数据1.png

gitigou · 发表于 2018-9-7 21:19

本帖最后由 gitigou 于 2018-9-8 11:23 编辑

忘了说，用VBA代码。

gitigou · 发表于 2018-9-8 11:37

本帖最后由 gitigou 于 2018-9-8 11:59 编辑

我在论坛里找了一段代码试着改了一下，但是不行，请老师们指点

Sub 提取删除()
Application.ScreenUpdating = False
Dim wb as Workbook
Dim k As Integer, rng As Range
Set rng = ThisWorkbook.Worksheets("密码表格").Range("A1")
Set wb = Workbooks.Open(ThisWorkbook.Path & "\密码表格.xlsx") '不想打开表格怎么弄？
For k = 2 To [a65536].End(3).Row
If ThisWorkbook.Worksheets("密码表格").Range("A2") <> "" Then
If ThisWorkbook.Worksheets("工作簿1").Cells(k, 1) <> "" Then
ThisWorkbook.Worksheets("工作簿1").Cells(k, 2) = Worksheets("密码表格").Range("A2").Value
rng.EntireRow.Delete
k = k + 1
End If
Else
MsgBox "无数据"
End If
Next
Worksheets("密码表格").Save
Application.ScreenUpdating = True
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 求大神老师们解答：从另一个表格中提取数据，删除并保存