EXCEL宏命令 查找并填充指定内容

Question

请教用宏实现按条件查找并按条件填入或删除指定值后删除条件内容在看板工作表中 点击开始按钮 实现把制空（看板A列二行一下）下面每一个数值在 基础数据表中查找，并在相同数值的右一单元格（卡号列）删除数值保证单元格是空的，在此数值右一（修改时间）单元格填入修改时间。直到制空列空单元格循环停止。然后按照制满列（看板D列二行一下）的数值在 基础数据表中查找，并在相同数值的右一单元格（卡号列）填入此数值，在此数值右一（修改时间）单元格填入修改时间。直到制满列空单元格循环停止。然后整个宏停止。此时制空制满两列应没有任何数值只有第一行的文字。原数据和卡号是对应的

Answer 1

你给的图片不全，给的信息也不充分... 下面是按你说的要求写的
Sub 空满删()
Dim a, b, c
For a = 2 To WorksheetFunction.CountA(Sheet1.Columns(1))
For c = 1 To 10 Step 3
For b = 7 To WorksheetFunction.CountA(Sheet2.Columns(c))
If Sheet1.Cells(a, 1) = Sheet2.Cells(b, c) Then
Sheet2.Cells(b, c + 1) = ""
Sheet2.Cells(b, c + 2) = Now()
End If
Next
Next
Sheet1.Cells(a, 1) = ""
Next
For a = 2 To WorksheetFunction.CountA(Sheet1.Columns(4))
For c = 1 To 10 Step 3
For b = 7 To WorksheetFunction.CountA(Sheet2.Columns(c))
If Sheet1.Cells(a, 4) = Sheet2.Cells(b, c) Then
Sheet2.Cells(b, c + 1) = Sheet1.Cells(a, 4)
Sheet2.Cells(b, c + 2) = Now()
End If
Next
Next
Sheet1.Cells(a, 4) = ""
Next
End Sub
我这是默认你第一个表在“sheet1”，第二个表在“sheet2”里，并且在表2里有4列数据追问

大神 这个论坛我有附件 能给看看吗谢谢
http://club.excelhome.net/thread-1360083-1-1.html

追答

刚才那个代码改了3个地方：1.你的表示sheet3和sheet8，按你的改了；2.你表的日期不含时间，按你的改了；3.你的表2不光是到第10列，按你的改到184了~
另外两点：1.你那个图片删了，改成了个按钮；2.文件格式改成xlsm了
http://pan.baidu.com/s/1kURl3Ob