大牛可否将“ExcelVBA教程曾贤志视频教程”发我一份，感谢！
\u5927\u725b\u53ef\u5426\u5c06\u201cExcelVBA\u6559\u7a0b\u66fe\u8d24\u5fd7\u89c6\u9891\u6559\u7a0b\u201d\u53d1\u6211\u4e00\u4efd\uff0c\u611f\u8c22\uff01\u8bf7\u70b9\u5f00\u7f51\u76d8\u8fdb\u5165\u5206\u4eab\u4e2d\u4e0b\u8f7d(\u9700\u8981\u767b\u5f55\u7535\u8111\u7aef)
ExcelVBA\u6559\u7a0b\u66fe\u8d24\u5fd7\u89c6\u9891\u6559\u7a0b
\u5df2\u53d1\u9001\u767e\u5ea6\u7f51\u76d8
\u5982\u679c\u94fe\u63a5\u5931\u6548 \u8bf7\u7ee7\u7eed\u8ffd\u95ee\u6211
\u518d\u91cd\u65b0\u53d1\u9001\u65b0\u94fe\u63a5\u7ed9\u4f60
\u5e0c\u671b\u6709\u6240\u5e2e\u52a9~! \u5feb\u4e50\u6bcf\u4e00\u5929\u54e6~.~!
\u540c\u5b66\uff0c\u5e0c\u671b\u53ef\u4ee5\u7ed9\u6211\u4e00\u4efd
请点开网盘进入分享中下载(需要登录电脑端)ExcelVBA教程曾贤志视频教程已发送百度网盘如果链接失效请继续追问我再重新发送新链接给你希望有所帮助~!快乐每一天哦~.~!绛旓細璇风偣寮缃戠洏杩涘叆鍒嗕韩涓笅杞(闇瑕佺櫥褰曠數鑴戠)ExcelVBA鏁欑▼鏇捐搐蹇楄棰戞暀绋嬪凡鍙戦佺櫨搴︾綉鐩樺鏋滈摼鎺ュけ鏁堣缁х画杩介棶鎴戝啀閲嶆柊鍙戦佹柊閾炬帴缁欎綘甯屾湜鏈夋墍甯姪~!蹇箰姣忎竴澶╁摝~.~!
绛旓細VBA浠ｇ爜濡備笅锛歋ub test()Dim ary1, mRow As LongDim d As Object, tmpWith Worksheets("Sheet1") mRow = .Cells(Rows.Count, "C").End(3).Row ary1 = .Range(.Cells(2, "C"), .Cells(mRow, "e"))End WithSet d = CreateObject("scripting.dictionary")For i = 1 To UBou...
绛旓細Excel VBA鍏跺疄寰堢畝鍗 杩欐湰涔︿笉閿欙紝濡傛灉浣犵綉涓婃壘涓嶅埌鐨勮瘽锛岄偖绠辩暀涓紝鍙戠粰浣
绛旓細璇诲彇杈撳叆鐨勫鍚嶏紝鐒跺悗鍦˙鍒楁煡鎵捐緭鍏ョ殑濮撳悕锛屾壘鍒板氨璁颁笅琛屽彿锛屾洿鏂颁俊鎭傛病鏈夋壘鍒帮紝灏卞湪鏈鍚庝竴琛岀殑涓嬩竴琛屾坊鍔犳暟鎹侾rivate Sub CommandButton1_Click() 'Sheet1 鏄緭鍏ヤ俊鎭殑宸ヤ綔琛紝Sheet2鏄瓨鏀炬暟鎹殑宸ヤ綔钖勩 Dim lngRow As Variant, strName As String strName = Sheet1.TextBox2.Text...
绛旓細璧嬪肩殑With閲岄潰娣诲姞涓や釜璇彞锛屾坊鍔犲悗涓猴細With .Sheets(1)src.Range("A1:" & strEndC1 & "1").Copy .Range("A1:" & strEndC1 & "1").Range("A1:" & strEndC1 & "1") = topR src.Range("A" & cx & ":" & strEndC1 & cx).Copy .Range("A2:" & strEndC1 & "2")....
绛旓細鍙互鑷姩閫傚簲鍓嶉潰鍘熸暟鎹粺璁¤〃鐨勫ぇ灏忋傚湪鏈鍚庝竴鎺掑悗鑷姩鐢熸垚缁熻缁撴灉銆係ub test()Dim x, y, z As Long Dim n, m, i As Integer Dim strName(1 To 100) As String Dim arr As Range n = Sheets(1).UsedRange.Columns.Count m = Sheets(1).UsedRange.Rows.Count Set arr = Sheets(1)....
绛旓細Sub test()Application.ScreenUpdating = False Dim r&, i&, wk As Workbook r = Cells(Rows.Count, 1).End(3).Row For i = 2 To r Range("1:1," & i & ":" & i).Copy Set wk = Workbooks.Add Rows(1).Select ActiveSheet.Paste wk.SaveAs ThisWorkbook.Path & "\" & i -...
绛旓細鏁扮粍鍏紡锛孋trl+Shift+Enter缁撴潫銆備笅鎷 鏂规硶浜屻VBA 鍏堢湅鏁堟灉 鍦ㄦ湰sheet涓斁鍏ュ涓嬩唬鐮侊細锛堟敞鎰忥細Name1涓笉鑳芥湁涓嶯ame2鍚屽悕锛屽惁鍒欏彲鑳藉鑷存帓搴忛敊璇紝浠庝綘杩欏簲璇ヤ笉浼氭湁鍚屽悕锛塖ub test()Dim d, arr, rs, i&, k&, m$, n$, x$Set d = CreateObject("scripting.dictionary")arr = [A2].Resize...
绛旓細hPages = ExecuteExcel4Macro("Get.Document(50)") '璁告棴婊ㄦ敞閲婏細璇ュ彞鍔熻兘鏄幏鍙栨墦鍗伴〉鏁帮紝鍗充綘鎵璇寸殑鍒嗛〉绗︾殑鏁伴噺锛岃皟鐢ㄥ畯琛ㄥ嚱鏁板緱鍒扮殑锛屽叾瀹冪殑涓嶇敤鏀癸紝鐢变簬浣犳棤娉曟彁渚涘師琛紝鎵浠ユ病娉曞府浣犺皟璇曪紒' hPages = Sheets(Max).HPageBreaks.Count '璁告棴婊ㄦ敞閲婏細浣犲師鏉ヤ娇鐢ㄨ繖涓鍙ワ紝鏄緱涓嶅埌鍒嗛〉绗︽暟閲...
绛旓細鍦ㄨ繖涓枃浠跺す涓,鏂板缓涓涓伐浣滆杽.鎻掑叆涓涓ā鍧楃矘璐翠竴涓嬩唬鐮 Sub hb()Application.DisplayAlerts = FalseApplication.ScreenUpdating = FalseDim MyFile As String, EndrowHZ, EndRow As LongDim ShtName As StringMyFile = Dir(ThisWorkbook.Path & "\*.xls")If MyFile <> "" Then Do On ...
