- 博客(6)
- 收藏
- 关注
原创 一段代码谁知道什么意思
Sub check_output()Dim row As Integer, c As IntegerDim arr(1 To 100), arr1(1 To 100)Dim regDim wb As WorkbookIf Range(“c1”) <> “使用” Then MsgBox “未使用!” Exit SubEnd Ifrow = Range(“A1”).CurrentRegion.Rows.Countreg = Range(“A1”).CurrentRegionFor i
2022-07-04 10:27:11
74
原创 利用sakura软件把文件内前面的时间行去掉
//キ键盘宏的文件BookmarkPattern('^[0-9/\\s:]+\\t', 46); // 标记改行ReplaceAll('^[0-9/\\s:]+\\t', '', 46); // 全部置換ReDraw(0); // 再描画后缀名用.mac,读取该文件 执行即可2022/03/11 11:03:55 INFO 处理。比如这样的文件内容,可以把时间去掉...
2022-03-16 15:26:45
496
1
原创 把指定后缀名文件放到当前文件夹
把指定后缀名文件放到当前文件夹的一个bat。set yymmdd=%date:/=%set hhmmss=%time:~0,2%%time:~3,2%%time:~6,2%set hhmmss=%hhmmss: =0%set tgtfolder=%yymmdd%%hhmmss%-rstmkdir %tgtfolder%move *.tsv %tgtfolder%\.move DH.properties %tgtfolder%\.move DH_*.properties %tgt
2022-03-10 14:23:03
216
原创 不含log
Sub check_output()Dim row As Integer, c As IntegerDim arr(1 To 100), arr1(1 To 100)Dim regDim wb As WorkbookIf Range(“c1”) <> “使用” Then MsgBox “C1单元格未选择使用!” Exit SubEnd Ifrow = Range(“A1”).CurrentRegion.Rows.Countreg = ActiveSheet.UsedRangeFor
2022-03-08 12:48:13
48
原创 再次改写
row = Range(“A1048576”).End(xlUp).row Set wb = Workbooks.Add wb.Sheets(1).Range("a1") = GetColName(j) & i & "单元格内容长度不为4!" wb.SaveAs ThisWorkbook.Path & "\错误输出结果" & Format(Now, "yyyymmddhhmm
2022-03-08 11:42:22
53
原创 之前的改写
Sub check_output()Dim row As Integer, c As IntegerDim arr(1 To 100), arr1(1 To 100)Dim regDim wb As WorkbookIf Range(“c1”) <> “使用” Then MsgBox “C1单元格未选择使用!” Exit SubEnd Ifrow = Range(“A1”).CurrentRegion.Rows.Countreg = ActiveSheet.UsedRangeFor
2022-03-08 10:20:48
34
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人