2020年2月12日
程序记时
摘要： sub tim dim t t=timer 语句 msgbox timer-t end sub 阅读全文
posted @ 2020-02-12 11:21 紫辰花月 阅读(117) 评论(0) 推荐(0) 编辑
find的应用
摘要： Range("k4") = Range("d:d").Find(Range("j4")).Offset(0, 3） range("d:d").find(range("j4")).offset(0,3).clearcontents '删除找到的内容 sub 查找（） dim rng as range 阅读全文
posted @ 2020-02-12 09:37 紫辰花月 阅读(146) 评论(0) 推荐(0) 编辑
把目录下的文件导入一个文件中
摘要： Sub drbg()'把目录下所有文件名输入表格Dim str As StringDim wb As WorkbookDim sht As Worksheet str = Dir("d:\data\*.*")'可以把文件名改为"*.xls*"For i = 1 To 100' range("a" & 阅读全文
posted @ 2020-02-12 08:54 紫辰花月 阅读(274) 评论(0) 推荐(0) 编辑