{"id":7080,"date":"2022-04-13T22:34:47","date_gmt":"2022-04-13T14:34:47","guid":{"rendered":"http:\/\/dachengge.com\/?p=7080"},"modified":"2022-04-13T22:34:47","modified_gmt":"2022-04-13T14:34:47","slug":"%e4%b8%80%e6%ac%a1%e8%be%83%e5%a4%a7%e8%a7%84%e6%a8%a1%e6%95%b0%e6%8d%ae%e5%a4%84%e7%90%86%e7%9a%84%e7%bb%8f%e5%8e%86-excel%e7%89%88","status":"publish","type":"post","link":"http:\/\/dachengge.com\/?p=7080","title":{"rendered":"\u4e00\u6b21\u8f83\u5927\u89c4\u6a21\u6570\u636e\u5904\u7406\u7684\u7ecf\u5386 EXCEL\u7248"},"content":{"rendered":"

\u524d\u4e00\u6bb5\u65f6\u95f4\u5199\u4e86\u4e00\u7bc7\u6587\u7ae0\u300a\u4e00\u6b21\u8f83\u5927\u89c4\u6a21\u6570\u636e\u5904\u7406\u7684\u7ecf\u5386 PYTHON\u7248<\/a>\u300b\uff0c\u5c1d\u8bd5\u4f7f\u7528PYTHON\u548cPANDAS\u89e3\u51b3\u8f83\u5927\u89c4\u6a21\u6570\u636e\u7684\u8ba1\u7b97\u95ee\u9898\uff0c\u8fd1\u767e\u4e07\u6761\u6570\u636e\u5982\u679c\u4f7f\u7528EXCEL\u5904\u7406\uff0c\u901f\u5ea6\u6bd4\u8f83\u6162\uff0c\u800c\u4e14\u5bf9\u4e8e\u590d\u6742\u7684\u8ba1\u7b97\uff0c\u8fd8\u9700\u8981\u501f\u52a9VBA\u7a0b\u5e8f\uff0c\u56e0\u6b64\u4e0a\u6b21\u4f7f\u7528\u4e86PYTHON\u3002\u4f46\u662fEXCEL\u7684\u4f18\u70b9\u4e0d\u5bb9\u5ffd\u89c6\uff0c\u6bd4\u5982\u7b80\u5355\u76f4\u89c2\uff0c\u80fd\u591f\u5feb\u901f\u7b5b\u9009\u3001\u6c47\u603b\u7b49\u7b49\uff0c\u6700\u7ec8\u751f\u6210\u62a5\u8868\u8fd8\u5f97\u4f7f\u7528EXCEL\uff0c\u6b64\u6b21\u6253\u7b97\u7528EXCEL\u91cd\u65b0\u5904\u7406\u4e00\u904d\u6570\u636e\uff0c\u5e76\u5bfb\u627e\u5408\u9002\u7684\u65b9\u6cd5\u907f\u514dEXCEL\u7684\u7f3a\u70b9\uff0c\u4f7f\u5f97EXCEL\u80fd\u591f\u5feb\u901f\u5730\u5904\u7406\u8f83\u5927\u89c4\u6a21\u7684\u6570\u636e\u3002<\/p>\n

\u63a5\u4e4b\u524d\u7684\u95ee\u9898\uff0c\u6570\u636e\u89c4\u6a21\u5728\u767e\u4e07\u6761\uff0cCSV\u683c\u5f0f\uff0c\u9700\u8981\u5bf9\u6570\u636e\u8fdb\u884c\u8ba1\u7b97\uff0c\u6839\u636e\u524d\u4e09\u5217\u6570\u636e\u7684\u4e0d\u540c\uff0c\u516c\u5f0f\u5206\u6210\u56db\u7ec4\uff0c\u5747\u7c7b\u4f3c\u4e8e\u7535\u8d39\u7684\u9636\u68af\u7535\u4ef7\u8ba1\u7b97\u65b9\u6848\uff0c\u53ea\u4e0d\u8fc7\u5177\u4f53\u6807\u51c6\u4e0d\u4e00\u6837\uff0c\u3010\u95ee\u9898\u4e00\u3011<\/span><\/strong>\u9700\u8981\u8ba1\u7b97\u6700\u7ec8\u503c\uff1b\u3010\u95ee\u9898\u4e8c\u3011<\/strong>\u540e\u9762\u8fd8\u63d0\u51fa\u4e86\u4e00\u79cd\u63a2\u7d22\u7684\u7b97\u6cd5\uff0c\u5373\u8ba1\u7b97\u516c\u5f0f\u589e\u52a0\u201c\u6b21\u6570\u201d\u7684\u6761\u4ef6\uff0c<\/span>\u6bcf\u4e00\u6b21\u7684\u8ba1\u7b97\u516c\u5f0f\u53c8\u4e0d\u4e00\u6837\u3002<\/span><\/p>\n

\u3010\u95ee\u9898\u4e00\u3011<\/span><\/strong>\u9488\u5bf9\u8be5\u95ee\u9898\uff0c\u6700\u521d\u4f7f\u7528if\u5d4c\u5957\u516c\u5f0f\uff0c\u53d1\u73b0\u5d4c\u5957\u8d77\u6765\u590d\u6742\uff0c\u800c\u4e14\u590d\u5236\u516c\u5f0f\u65f6\uff0c\u673a\u5668\u975e\u5e38\u5361\uff0c\u5373\u4f7f\u5173\u95ed\u4e86\u81ea\u52a8\u8ba1\u7b97\u4ea6\u662f\u5982\u6b64\u3002\u4e8e\u662f\u51b3\u5b9a\u4f7f\u7528VBA\u7f16\u5199\u7a0b\u5e8f\u89e3\u51b3\uff0c\u5206\u4e3a\u4e24\u90e8\u5206\uff1a\u4e00\u662f\u5206\u6bb5\u8ba1\u7b97\u51fd\u6570\uff1b\u4e8c\u662f\u8c03\u7528\u7684\u4e3b\u51fd\u6570\u3002\u89e3\u51b3\u95ee\u9898\u7684\u601d\u8def\u662f\u901a\u8fc7VBA\u8ba1\u7b97\u6570\u636e\uff0c\u6b64\u65f6\u8868\u4e2d\u7684\u6570\u636e\u7ed3\u679c\u662f\u9759\u6001\u7684\uff0c\u6ca1\u6709\u4efb\u4f55\u516c\u5f0f\uff0c\u56e0\u6b64\u907f\u514d\u4e86\u5361\u987f\u7684\u95ee\u9898\u3002<\/span><\/span><\/p>\n

\u5206\u6bb5\u8ba1\u7b97\u51fd\u6570\uff1a<\/strong><\/p>\n

'\u53c2\u6570\u5206\u522b\u5bf9\u5e94\u8868\u4e2d\u7684\u56db\u5217\u6570\u636e\nFunction calc(col1 As String, _\n              col2 As String, _\n              col3 As String, _\n              col4 As Double)\n\n    '\u5b9a\u4e49\u4e00\u4e2a\u53d8\u91cf\u4fdd\u5b58\u7b2c\u56db\u5217\u7684\u503c\n    Dim value As Double\n    '\u4fdd\u5b58\u7ed3\u679c\n    Dim result As Double\n    value = col4\n    \n    '\u6839\u636e\u7ec4\u5408\u6761\u4ef6\u8ba1\u7b97\u7ed3\u679c\n    '\u6b64\u5904\u53ea\u5217\u4e3e\u4e00\u79cd\u7ec4\u5408\u7684\u60c5\u51b5\n    If col1 = \"***\" And col2 = \"****\" Then\n        If value < 200 Then\n            result = 0\n        ElseIf value < 1000 Then\n            result = (value-200)*0.6\n        ElseIf value < 10000 Then\n            result = (1000-200)*0.6 _\n                     +(value-1000)*0.7\n        Else\n            result = (1000-200)*0.6 _\n                     +(10000-1000)*0.7 _\n                     +(value-10000) * 0.8\n        End If\n    End If\n    '\u8fd4\u56de\u7ed3\u679c\n    calc = result\nEnd Function\n<\/pre>\n
\u8c03\u7528\u7684\u4e3b\u51fd\u6570\uff1a<\/strong><\/p>\n
Sub main()\n    Dim iRow As Integer\n    '\u5b9a\u4e49\u53d8\u91cf\uff0c\u5206\u522b\u5bf9\u5e94\u56db\u5217\u6570\u636e\n    Dim col1 As String\n    Dim col2 As String\n    Dim col3 As String\n    Dim col4 As Double\n    \n    '\u5c06\u6bcf\u4e00\u884c\u6570\u636e\u8c03\u7528\u8ba1\u7b97\u51fd\u6570\u8ba1\u7b97\u7ed3\u679c\n    For iRow = 2 To 800000 Step 1\n        col1 = Cells(iRow, 1)\n        col2 = Cells(iRow, 2)\n        col3 = Cells(iRow, 3)\n        col4 = Cells(iRow, 4)\n        '\u5c06\u7ed3\u679c\u4fdd\u5b58\u5728\u7b2c5\u5217     \n        Cells(iRow, 5) = calc(col1, col2, col3, col4)\n    Next\nEnd Sub\n<\/pre>\n
\u3010\u95ee\u9898\u4e8c\u3011<\/span><\/strong>\u589e\u52a0\u516c\u5f0f\u8ba1\u7b97\u7684\u6761\u4ef6\u201c\u6b21\u6570\u201d\uff0c\u539f\u59cb\u6570\u636e\u4e2d\uff0c\u6bcf\u4e2a\u4eba\u53ef\u80fd\u6709\u591a\u6761\u6570\u636e\uff0c\u65f6\u95f4\u4e0d\u4e00\u6837\uff0c\u6bcf\u4e00\u6b21\u5728\u4f7f\u7528\u516c\u5f0f\u8ba1\u7b97\u65f6\uff0c\u6709\u5dee\u522b\u3002\u524d\u9762\u5df2\u7ecf\u5199\u597d\u4e86\u8ba1\u7b97\u7684\u51fd\u6570\uff0c\u5982\u679c\u6b21\u6570\u7edf\u8ba1\u51fa\u6765\u540e\uff0c\u53ef\u4ee5\u76f4\u63a5\u4fee\u6539\u8ba1\u7b97\u7684\u51fd\u6570\u4e86\uff0c\u56e0\u6b64\u4e3b\u8981\u7684\u95ee\u9898\u5728\u4e8e\u5982\u4f55\u6309\u7167\u65f6\u95f4\uff0c\u7edf\u8ba1\u597d\u6bcf\u4e2a\u4eba\u7684\u6b21\u6570\uff0c\u5373\u6309\u7167\u65f6\u95f4\uff0c\u5bf9\u6bcf\u4e2a\u4eba\u7684\u4fe1\u606f\u8865\u51451\u30012\u30013\u30014\uff0c……\uff0cN\u3002\u5047\u8bbecol3\u662f\u4eba\u5458\u7f16\u53f7\uff0ccol6\u65f6\u95f4\uff0ccol7\u662f\u6b21\u6570\uff0c\u73b0\u5728\u6709\u4e00\u4e2a\u571f\u529e\u6cd5\u89e3\u51b3\u8be5\u95ee\u9898\uff0c\u5c31\u662f\u7528Excel\u624b\u52a8\u6392\u5e8f\uff0c\u5173\u952e\u5b57\u662fcol3\uff0c\u6b21\u5173\u952e\u5b57\u662fcol6\uff0c\u8fd9\u6837\u6bcf\u4e2a\u4eba\u7684\u4fe1\u606f\u90fd\u6309\u7167\u65f6\u95f4\u6392\u597d\u5e8f\u4e86\uff0c\u4e0b\u9762\u5c31\u662f\u8865\u5145\u6b21\u6570\u5217\u7684\u6570\u636e\uff0c\u4ecd\u7136\u662f\u662f\u4f7f\u7528VBA\u3002<\/span><\/p>\n
Sub calcCount()\n\n    Dim iRow As Integer\n    Dim count As Integer\n    \n    '\u5bf9\u5e94\u4eba\u5458\u7f16\u53f7\n    Dim col3 As String\n    \n    '\u8bb0\u5f55\u4e0a\u4e00\u6761\u7684\u4eba\u5458\u7f16\u7801\n    Dim lastId As String\n    \n    '\u6b21\u6570\u7684\u521d\u59cb\u503c\u8bbe\u7f6e\u4e3a1\n    count = 1\n    \n    '\u5c06\u6bcf\u4e00\u884c\u6570\u636e\u8c03\u7528\u8ba1\u7b97\u51fd\u6570\u8ba1\u7b97\u7ed3\u679c\n    For iRow = 2 To 800000 Step 1\n        '\u5c06\u4eba\u5458ID\u8d4b\u503c\u7ed9col3\n        col3 = Cells(iRow, 3)\n             \n        If iRow = 2 Then\n        '\u7b2c\u4e00\u6761\u6570\u636e\uff0c\u6b21\u6570\u8bbe\u7f6e\u4e3a1\uff0c\u5c06id\u8d4b\u503c\u7ed9\u4e0a\u4e00\u6761\u4eba\u5458\u7f16\u7801\n            Cells(iRow, 7) = 1\n            lastId = col3\n        Else\n            '\u8ddf\u4e0a\u4e00\u6761\u5c5e\u4e8e\u4e00\u4e2a\u4eba\u65f6\uff0c\u6b21\u6570\u52a01\n            If col3 = lastId Then\n                count = count + 1\n            Else\n            '\u8ddf\u4e0a\u4e00\u6761\u4e0d\u5c5e\u4e8e\u4e00\u4e2a\u4eba\u65f6\uff0c\u672c\u6761\u6b21\u6570\u8d4b\u503c1\n            '\u5c06\u672c\u6761\u4eba\u5458ID\u8d4b\u503c\u7ed9lastId\n                count = 1\n                lastId = col3\n            End If\n            '\u7ed3\u679c\u4fdd\u5b58\u5728\u7b2c\u4e03\u5217\n            Cells(iRow, 7) = count\n        End If\n    Next\nEnd Sub\n<\/pre>\n","protected":false},"excerpt":{"rendered":"
\u524d\u4e00\u6bb5\u65f6\u95f4\u5199\u4e86\u4e00\u7bc7\u6587\u7ae0\u300a\u4e00\u6b21\u8f83\u5927\u89c4\u6a21\u6570\u636e\u5904\u7406\u7684\u7ecf\u5386 PYTHON\u7248\u300b\uff0c\u5c1d\u8bd5\u4f7f\u7528PYTHON\u548cPANDAS\u89e3\u51b3\u8f83 … \u7ee7\u7eed\u9605\u8bfb\u4e00\u6b21\u8f83\u5927\u89c4\u6a21\u6570\u636e\u5904\u7406\u7684\u7ecf\u5386 EXCEL\u7248<\/span> →<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[21],"tags":[],"views":8077,"_links":{"self":[{"href":"http:\/\/dachengge.com\/index.php?rest_route=\/wp\/v2\/posts\/7080"}],"collection":[{"href":"http:\/\/dachengge.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/dachengge.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/dachengge.com\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"http:\/\/dachengge.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=7080"}],"version-history":[{"count":0,"href":"http:\/\/dachengge.com\/index.php?rest_route=\/wp\/v2\/posts\/7080\/revisions"}],"wp:attachment":[{"href":"http:\/\/dachengge.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=7080"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/dachengge.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=7080"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/dachengge.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=7080"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}