yyfjm1994的博客

当前目录下子目录文件移动到当前目录。img开头文件，后缀名改jpg,vid开头文件，后缀名改mp4。

1.安装odbcCmd命令提示符 右键管理员方式打开D:Cd D:\excel-oracle\instantclient_11_2odbc_install.exe若出现Oracle ODBC Driver with same name already exists.安装失败，需要确认是不是用管理员方式打开，如果仍旧失败，cmd执行odbc_uninstall.exe执行后odbc_install.exe 会被移除，去D:\excel-oracle\ 解压两个压缩包到当

Sub cancelMerge()Dim i As RangeFor Each i In ActiveSheet.UsedRangeIf i.Address <> i.MergeArea.Address And i.Address = i.MergeArea.Item(1).Address Theni.MergeArea.Selecti.MergeArea.UnMergeSelection.FillDownEnd IfNext iEnd Sub

Sub 删表格红色行() '每个表格只能有一个红色的行，有多个只处理第一个 Dim tb As Table, cl As Cell For Each tb In ActiveDocument.Tables For Each cl In tb.Range.Cells If cl.Range.Font.Color = 255 Then cl.Row.Delete .

Sub 选择字段名相同的数据复制() Dim d As Object Set d = CreateObject("scripting.dictionary") With Sheets("灯具模板") arr = .[a1].CurrentRegion l = UBound(arr, 2) For i = 1 To l d(arr(1, i)) = i Next .