首页 > 代码库 > vba——清空整张表用于初始化
vba——清空整张表用于初始化
今天在操作excel的过程中需要将整张表清空，然后填入所需的数据，因此这里我记录一下vba代码如何实现这一功能，这部分代码也会在代码仓库找到
功能：清空第 i 张表，然后从表1中选择所需的数据填入此表。
代码如下：
Sub SelectAndCopy()‘清除sheets i 的所有内容,并将内容填入sheets iDim i&i = 9Sheets(i).Cells.ClearContents‘Sheets(i)选择的是Sheets的对象，和Excel中的标签顺序一致‘可用下面的select进行测试和对比，即可观察到结果‘Sheets(3).Select‘取出前500条目标设备的记录Dim row&, col&, cnt&, str$row = 2: col = 4: str = Sheet1.Cells(36, col)cnt = 0Do While Sheet1.Cells(row, 1) <> "" And cnt <= 500 If Sheet1.Cells(row, col) Like str Then Sheet1.Rows(row).Copy Sheets(i).Cells(65536, 1).End(3).Offset(1) cnt = cnt + 1 End If row = row + 1LoopMsgBox "完成"End Sub
说明：
Sheets(i)返回了工作表对象，Sheets(i)的下标从1开始，直到最后一张表，其顺序对应如下：
如果顺序变了，则Sheets(i)对应的表也就改变。
与之不同的是：Sheet1是Excel的内建对象，因此这个对应顺序，不会随着我们调整顺序而随之变化，也就是说，Sheet1在这里永远都指的是 level1这张表，如图所示：
此时，Sheets(1)对应的是iphone_train_1表
If Sheet1.Cells(row, col) Like str Then Sheet1.Rows(row).Copy Sheets(i).Cells(65536, 1).End(3).Offset(1)
Like运算符用在这里类似于正则表达式，表示如果单元格中出现了str字符串，则执行if语句。
Sheet1.Rows(row).Copy Sheets(i).Cells(65536, 1).End(3).Offset(1)
这句我还解释不清，只知道这是复制到sheets(i)中最后一个空行的下一行。存疑
vba——清空整张表用于初始化
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。