常用VBA函数精选合集

jy03342543 · 发表于 2017-11-1 14:01

谢谢分享，下载学习~

jqrcwcr · 发表于 2017-11-10 23:45

太感谢楼主了！

moonharuka · 发表于 2017-11-13 09:51

好东西谢谢分享

zhang64hao · 发表于 2017-11-14 14:40

谢谢楼主分享的资料

baijin4816 · 发表于 2017-11-14 15:55

せんせい、ありがとうございました。

一哥吗 · 发表于 2017-11-19 23:53

求助将不同EXCEL表合并总表支持只读情况下合并

Sub pppp()
Application.ScreenUpdating = False
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "请确定数据无误!!" ' ﹚
Style = vbYesNo + vbCritical + vbDefaultButton2  ' ﹚vbExclamation
Title = "温馨提示!!" ' ﹚
Response = MsgBox(Msg, Style, Title) 'note
If Response = vbYes Then
Sheets("AA").Visible = True
Sheets("AA").Select
Rows("2:1048576").ClearContents
x = Range("BU1")
Set FS = CreateObject("Scripting.FileSystemObject")
   Set f = FS.GetFolder(ThisWorkbook.Path & "\AAAAA\")
      For Each F1 In f.subfolders
      For Each FSFILE In F1.Files
         Workbooks.Open (FSFILE)
            aRow = Sheets(x).Range("1048576").End(xlUp).Row
            tRow = ThisWorkbook.Sheets("AA").Range("1048576").End(xlUp).Row + 1
            Sheets(x).Range("a4:bd" & aRow).Copy ThisWorkbook.Sheets("AA").Range("a" & tRow)
            Workbooks(FSFILE.Name).Close False
      Next FSFILE
      Next F1
With ActiveSheet
End With
End If
Application.ScreenUpdating = True
End Sub

nuoranouran · 发表于 2017-12-3 22:21

非常感谢老师

417744370 · 发表于 2017-12-13 08:58

非常感谢蓝版主！！慢慢消化！

aliCT · 发表于 2017-12-13 09:10

楼主辛苦了，谢谢，这个太好了

928038402 · 发表于 2017-12-14 10:39

谢谢楼主分享

		自动登录	找回密码
密码			免费注册

[原创] 常用VBA函数精选合集