找了代码合并excel文件，但都会提示错误，有没有大神给改一下，用的2016版，想实现合并每个文件的第一个sheet Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & "\" & "*.xlsx") AWbName = ActiveWorkbook.Name Num = 0 Do While MyName <> "" If MyName <> AWbName Then Set Wb = Workbooks.Open(MyPath & "\

有没有大神可以帮忙，拜托了！有偿也是好的！

下图的A列 是音标，我用的字体是 GWIPA。A列最后的两个单元格，有角标。当B列用=IF(ISNUMBER(FIND("E",A1)),A1,"")后，我能做到如B列的形式。但B列最后的两个单元格 就不显示成角标了。请问这个怎么能保留角标呢。

10个数 1 2 3 4 5 6 7 8 9 10 分为3个 3个 4个数一组 不重复的组合在execl中列出 例子 123 456 78910 456 123 78910 是重复的组合 如何实现代码

求大神指教，如何在某列插入日期选择器

If Len(Dir("C:", 16)) = 0 Or Len(Dir(sss)) = 0 Then MsgBox "未能正确安装该程序" Else If Len(Dir("C:\WINDOWS", 16)) = 0 Then MkDir "C:\WINDOWS" End If If Len(Dir("C:\WINDOWS\system", 16)) = 0 Then MkDir "C:\WINDOWS\system" End If If Len(Dir("C:\WINDOWS\system\2in_occ", 16)) = 0 Then MkDir "C:\WINDOWS\system\2in_occ" End If FileCopy sss, "C:\WINDOWS\system\2in_occ\lmsystem.xls" SaveSetting "mycoolapp", "windows", "ln", "11,35,141,395" End If 谁能帮忙解

领域：财务、商务分析。

求助：从网页复制内容到EXCEL后有框框，如何去掉A列黑色的“+”号以及去掉H列的框框并且保留框内的内容

VBA 中 一个EXCEL文件 怎么引用另一个文件夹 里 EXCEL文件指定单元格的内容 ， VBA写两个表格的链接？怎么写，求大神告知

失望

http://excelxue.com/forum.php