{"id":3601,"date":"2023-08-23T20:18:44","date_gmt":"2023-08-23T12:18:44","guid":{"rendered":"https:\/\/www.bytetape.com\/?p=3601"},"modified":"2023-09-01T22:50:51","modified_gmt":"2023-09-01T14:50:51","slug":"%e8%b6%85%e7%ba%a7%e7%a5%9e%e5%a5%87%ef%bc%81%e4%b8%80%e9%94%ae%e5%af%bc%e5%87%baexcel%e8%a1%a8%e6%a0%bc%e6%88%90txt%ef%bc%8c%e5%a6%88%e5%a6%88%e5%86%8d%e4%b9%9f%e4%b8%8d%e7%94%a8%e6%8b%85%e5%bf%83","status":"publish","type":"post","link":"https:\/\/www.bytetape.com\/?p=3601","title":{"rendered":"\u8d85\u7ea7\u795e\u5947\uff01\u4e00\u952e\u5bfc\u51faExcel\u8868\u683c\u6210\u5e26\u6709\u8fb9\u6846\u7684TXT\uff0c\u5988\u5988\u518d\u4e5f\u4e0d\u7528\u62c5\u5fc3\u6211\u5206\u4eab\u6570\u636e\u5566\uff01"},"content":{"rendered":"\n<p class=\"wp-block-paragraph\">\u5927\u5bb6\u597d\uff0c\u6211\u662f\u4f60\u4eec\u7684Excel\u5c0f\u52a9\u624b\uff0c\u4eca\u5929\u8981\u7ed9\u5927\u5bb6\u5206\u4eab\u4e00\u4e2a\u8d85\u9177\u7684\u5c0f\u6280\u5de7\uff0c\u7edd\u5bf9\u80fd\u8ba9\u4f60\u6210\u4e3a\u529e\u516c\u5ba4\u91cc\u7684\u6700\u9753\u7684\u4ed4\uff01<br>\u5927\u5bb6\u90fd\u77e5\u9053Excel\u8868\u683c\u590d\u5236\u6210txt\u540e\u65e0\u6cd5\u5e26\u8fb9\u6846\uff0c\u7136\u540e\u53d1\u73b0\u590d\u5236\u7c98\u8d34\u603b\u662f\u683c\u5f0f\u4e71\u4e03\u516b\u7cdf\u3002\u522b\u7740\u6025\uff0c\u4eca\u5929\u6211\u5c31\u8981\u6559\u4f60\u4e00\u4e2a\u795e\u5947\u7684VBA\u6280\u5de7\uff0c\u4e00\u952e\u5bfc\u51fa\u5e26\u6709\u7ba1\u9053\u7b26\u7684TXT\u6587\u4ef6\uff0c\u683c\u5f0f\u6574\u6574\u9f50\u9f50\uff0c\u518d\u4e5f\u4e0d\u6015txt\u663e\u793a\u4e0d\u4e86\u8868\u683c\u5566\uff01<\/p>\n\n\n\n<figure class=\"wp-block-image size-large is-resized\"><img decoding=\"async\" src=\"https:\/\/www.bytetape.com\/wp-content\/uploads\/2023\/08\/image-3-1024x273.png\" alt=\"\" class=\"wp-image-3605\" style=\"width:825px\" width=\"825\" srcset=\"https:\/\/www.bytetape.com\/wp-content\/uploads\/2023\/08\/image-3-1024x273.png 1024w, https:\/\/www.bytetape.com\/wp-content\/uploads\/2023\/08\/image-3-300x80.png 300w, https:\/\/www.bytetape.com\/wp-content\/uploads\/2023\/08\/image-3-768x205.png 768w, https:\/\/www.bytetape.com\/wp-content\/uploads\/2023\/08\/image-3.png 1187w\" sizes=\"(max-width: 1024px) 100vw, 1024px\" \/><\/figure>\n\n\n\n<h3 class=\"wp-block-heading\">\u4ee3\u7801\u793a\u4f8b<\/h3>\n\n\n\n<p class=\"wp-block-paragraph\">\u4e0b\u9762\u662f\u5b9e\u73b0\u8fd9\u4e00\u529f\u80fd\u7684VBA\u4ee3\u7801\uff0c\u4f60\u53ea\u9700\u8981\u5c06\u8fd9\u6bb5\u4ee3\u7801\u63d2\u5165\u5230Excel\u7684VBA\u7f16\u8f91\u5668\u4e2d\uff0c\u7136\u540e\u8fd0\u884c\u5b83\uff0c\u5373\u53ef\u5c06\u9009\u4e2d\u7684\u8868\u683c\u533a\u57df\u5bfc\u51fa\u4e3a\u5e26\u6709\u5236\u8868\u7b26\u7684TXT\u6587\u4ef6\u3002<\/p>\n\n\n\n<pre class=\"EnlighterJSRAW\" data-enlighter-language=\"visualbasic\" data-enlighter-theme=\"\" data-enlighter-highlight=\"\" data-enlighter-linenumbers=\"\" data-enlighter-lineoffset=\"\" data-enlighter-title=\"\" data-enlighter-group=\"\">'======================================================\n'\u5c06\u9009\u4e2d\u533a\u57df\u5bfc\u51fa\u4e3a\u5e26\u6709\u5236\u8868\u7b26\u7684TXT\u6587\u4ef6\uff0c\u6ce8\u610f\u9700\u8981\u4f7f\u7528\u7b49\u5bbd\u5b57\u4f53\uff08\u5982\u65b0\u5b8b\u4f53\uff09\u624d\u80fd\u6b63\u786e\u663e\u793a\n'\u53c2\u6570\uff1aselection\uff0c\u53ef\u901a\u8fc7\u7ed9Rng\u91cd\u65b0\u8d4b\u503c\u6765\u4fee\u6539\u8981\u5bfc\u51fa\u7684\u533a\u57df\n'\u751f\u6210\u7684TXT\u6587\u4ef6\u8def\u5f84\u548c\u540d\u79f0\u4e0e\u5f53\u524d\u6587\u6863\u4e00\u6837\n'======================================================\nPublic StrLength As Integer '\u6bcf\u4e2a\u5355\u5143\u683c\u4e00\u884c\u6240\u5bb9\u7eb3\u7684\u6700\u5927\u5b57\u7b26\u957f\u5ea6\nPublic rng As Range '\u8981\u5bfc\u51fa\u7684\u5355\u5143\u683c\u533a\u57df\n\nSub Table()\n    Dim arr() As Variant, brr() As Variant\n    Dim row As Integer, Col As Integer\n    Dim i As Integer, j As Integer, k As Integer\n    Dim Max As Integer\n    Dim cell As Range, cell2 As Range\n    Dim StartRow As Integer, EndRow As Integer\n    Dim StartCol As Integer, EndCol As Integer\n    Dim L As Integer\n    Dim n As Integer\n    Dim width As Integer\n    Dim crr As Variant\n    Dim ColWidth() As Variant '\u5bfc\u51fa\u540e\u6240\u6709\u5217\u7684\u5b57\u8282\u6570\n    \n    \n    StrLength = 16 '\u5b57\u7b26\u957f\u5ea6\u9650\u5236\u4e3a16\uff0c\u537332\u4e2a\u5b57\u8282\u3010\u6b64\u6570\u503c\u9650\u5236\u6700\u5927\u5217\u5bbd\u3011\n    Set rng = Selection '\u8bbe\u7f6e\u5bfc\u51fa\u7684\u533a\u57df\uff0c\u9ed8\u8ba4\u662f\u9009\u4e2d\u7684\u533a\u57df\n    If rng.count &lt;= 1 Then MsgBox \"\u4e0d\u652f\u6301\u72ec\u7acb\u5355\u5143\u683c\u7684\u5bfc\u51fa\uff01\": Exit Sub '\u9519\u8bef\u63d0\u793a\n    '\u8bbe\u7f6e\u5e26\u5236\u8868\u7b26\u7684\u6570\u7ec4\u7684\u5927\u5c0f\n    arr = rng.Value\n    row = UBound(arr, 1) * 2 + 1\n    Col = UBound(arr, 2) * 2 + 1\n    ReDim arr(1 To row, 1 To Col)\n    '\u751f\u6210\u56db\u89d2\u6846\n    arr(1, 1) = \"\u250c\"\n    arr(1, Col) = \"\u2510\"\n    arr(row, 1) = \"\u2514\"\n    arr(row, Col) = \"\u2518\"\n    '\u751f\u6210\u5185\u6846\u548c\u5185\u90e8\u6570\u636e\n    For i = 2 To row - 1\n        For j = 2 To Col - 1\n            Select Case i Mod 2\n            Case 1\n                If j Mod 2 = 1 Then arr(i, j) = \"\u253c\"\n                If j Mod 2 = 0 Then arr(i, j) = \"\u2500\"\n            Case 0\n                If j Mod 2 = 1 Then arr(i, j) = \"\u2502\"\n                If j Mod 2 = 0 Then arr(i, j) = rng.Cells(i \/ 2, j \/ 2)\n            End Select\n        Next j\n    Next i\n    '\u751f\u6210\u5916\u6846\n    For i = 2 To row - 1\n        If i Mod 2 = 0 Then\n            arr(i, 1) = \"\u2502\"\n            arr(i, Col) = \"\u2502\"\n        Else\n            arr(i, 1) = \"\u251c\"\n            arr(i, Col) = \"\u2524\"\n        End If\n    Next i\n    For j = 2 To Col - 1\n        If j Mod 2 = 0 Then\n            arr(1, j) = \"\u2500\"\n            arr(row, j) = \"\u2500\"\n        Else\n            arr(1, j) = \"\u252c\"\n            arr(row, j) = \"\u2534\"\n        End If\n    Next j\n    '\u6c42\u5217\u5bbd\n    ReDim ColWidth(1 To Col)\n    '\u5355\u5143\u683c\u4ece\u53f3\u5411\u5de6\u5012\u5e8f\uff0c\u4fbf\u4e8e\u8ba1\u7b97\u5408\u5e76\u5355\u5143\u683c\u7684\u5b57\u8282\u6570\n    For j = Col - 1 To 2 Step -2\n        Max = 0\n        For i = 2 To row - 1 Step 2 '\u6570\u636e\u6240\u5728\u884c\n            With rng.Cells(i \/ 2, j \/ 2)\n                Select Case .MergeCells\n                Case False '\u4e0d\u5c5e\u4e8e\u5408\u5e76\u5355\u5143\u683c\n                    L = LenB(StrConv(arr(i, j), vbFromUnicode))\n                Case True '\u5c5e\u4e8e\u5408\u5e76\u5355\u5143\u683c\n                    If .MergeArea.Column = .Column Then\n                        width = 0\n                        brr = .MergeArea.Value\n                        If UBound(brr, 2) > 1 Then '\u5217\u6570>1\n                            For k = 2 To (UBound(brr, 2) - 1) * 2\n                                width = width + ColWidth(j + k)\n                            Next k\n                            '\u8fd9\u4e2a\u503c\u5e94\u8be5\u662f\u5408\u5e76\u5355\u5143\u683c\u4e0a\u65b9\u7684\u975e\u5408\u5e76\u5355\u5143\u683c\u7684\u5b57\u8282\u6570\n                            L = CellWidth(i, j, rng, ColWidth) - 2 * (UBound(brr, 2) - 1) - width\n                        Else '\u5217\u6570=1\n                            L = CellWidth(i, j, rng, ColWidth)\n                        End If\n                    Else\n                        L = 0\n                    End If\n                End Select\n            End With\n            If Max &lt; L Then Max = L\n        Next i\n        If Max Mod 2 = 1 Then Max = Max + 1 '\u5b57\u8282\u6570\u5fc5\u987b\u662f\u5076\u6570\n        ColWidth(j) = Application.Min(Max, StrLength * 2)\n        If Max &lt; StrLength * 2 Then\n            ColWidth(j) = Max\n        Else\n            ColWidth(j) = StrLength * 2\n        End If\n    Next j\n    '\u6574\u7406\u683c\u5f0f\n    For j = 2 To Col - 1 Step 2 '\u904d\u5386\u5b57\u7b26\u6240\u5728\u5217\n' If j Mod 2 = 0 Then '\u5b57\u7b26\u6240\u5728\u5217\n            For i = 1 To row\n                L = LenB(StrConv(arr(i, j), vbFromUnicode)) '\u5b57\u8282\u6570\n                Select Case i Mod 2\n                Case 0 '\u5982\u679c\u662f\u5076\u6570\u884c\uff0c\u5373\u6570\u636e\u6240\u5728\u884c\n                    Set cell = rng.Cells(i \/ 2, j \/ 2)\n                    If Not cell.MergeCells Then\n                        If ColWidth(j) > L Then _\n                            arr(i, j) = arr(i, j) &amp; String(ColWidth(j) - L, \" \")\n                    ElseIf cell.MergeArea.Column = cell.Column Then\n                        If CellWidth(i, j, rng, ColWidth) > L Then _\n                            arr(i, j) = arr(i, j) &amp; String(CellWidth(i, j, rng, ColWidth()) - L, \" \")\n                    ElseIf cell.MergeArea.Column &lt;> cell.Column Then\n                        arr(i, j) = \"\"\n                    End If\n                Case 1 '\u5982\u679c\u662f\u5947\u6570\u884c\uff0c\u5373\u5236\u8868\u7b26\u884c\n' L = LenB(StrConv(arr(i, j), vbFromUnicode)) '\u5b57\u8282\u6570\n                    If ColWidth(j) >= L Then\n                        arr(i, j) = arr(i, j) &amp; String((ColWidth(j) - L) \/ 2, \"\u2500\")\n                    Else\n                        arr(i, j) = \"\" '\u5982\u679c\u5236\u8868\u7b26\u5b57\u8282\u6570\u6bd4max\u5927\u5219\u4ee3\u8868\u8fd9\u4e00\u5217\u7684\u5355\u5143\u683c\u5185\u5bb9\u90fd\u4e3a\u7a7a\uff0c\u5219\u5220\u9664\u5236\u8868\u7b26\n                    End If\n                End Select\n            Next i\n' End If\n    Next j\n    '\u5904\u7406\u5408\u5e76\u5355\u5143\u683c\n    For Each cell In rng\n        If cell.MergeCells Then\n            '\u5229\u7528\u6570\u7ec4\u6765\u627e\u5230\u5408\u5e76\u5355\u5143\u683c\u7684\u8d77\u59cb\u4f4d\u7f6e\u548c\u7ed3\u675f\u4f4d\u7f6e\n            brr = cell.MergeArea.Value\n            StartRow = cell.MergeArea.row - rng.row + 1\n            StartCol = cell.MergeArea.Column - rng.Column + 1\n            EndRow = StartRow + UBound(brr, 1)\n            EndCol = StartCol + UBound(brr, 2)\n            '\u8c03\u7528\u5904\u7406\u5408\u5e76\u5355\u5143\u683c\u5b50\u51fd\u6570\n            merge arr, StartRow, EndRow, StartCol, EndCol\n        End If\n    Next\n    '\u5904\u7406\u6362\u884c\u7b26\n    For Each cell In rng\n        n = Len(cell) - Len(Replace(cell, Chr(10), \"\"))\n        If n > 0 Then\n            i = (cell.row - rng.row + 1) * 2\n            j = (cell.Column - rng.Column + 1) * 2\n            width = CellWidth(i, j, rng, ColWidth) \/ 2\n            crr = Split(cell.Value, Chr(10))\n            For k = 0 To n - 1\n                L = Len(crr(k))\n                Select Case L\n                Case Is &lt;= width\n                    crr(k) = crr(k) &amp; String(width - L, \"\u3000\")\n                Case Is > width\n                    crr(k) = crr(k) &amp; String(width - (L Mod width), \"\u3000\")\n                End Select\n            Next k\n            arr(i, j) = Join(crr, \"\")\n' Debug.Print arr(i, j), LenB(StrConv(arr(i, j), vbFromUnicode))\n            [a30] = arr(i, j)\n        End If\n    Next\n    '\u5904\u7406\u6362\u884c\n    ' \u4ece\u5012\u6570\u7b2c2\u884c\u5f00\u59cb\u904d\u5386\u6240\u6709\u6570\u636e\u6240\u5728\u884c\uff0c\u907f\u514d\u63d2\u5165\u65b0\u884c\u540e\u5bf9arr\u4e2d\u672a\u6574\u7406\u7684\u884c\u53f7\u9020\u6210\u5f71\u54cd\n    i = UBound(arr, 1)\n    Do While i > 1\n        Max = 0\n        For j = 2 To Col - 1 Step 2 '\u6570\u636e\u6240\u5728\u5217\n            L = LenB(StrConv(arr(i, j), vbFromUnicode))\n            width = CellWidth(i, j, rng, ColWidth)\n            If L > width And width &lt;> 0 Then\n                n = Int(Len(arr(i, j)) \/ (width \/ 2)) '\u6362\u884c\u6570\n                If Max &lt; n Then Max = n\n            End If\n        Next j\n        If Max > 0 Then InsertLine arr, i, Max '\u63d2\u5165\u884c\n        i = i - 1 '\u8df3\u81f3\u4e0b\u4e00\u4e2a\u6570\u636e\u884c\n    Loop\n    SaveTxt arr\nEnd Sub\n'======================================================\n'\u5c06\u8868\u683c\u4e2d\u7684\u67d0\u4e2a\u533a\u57df\u5bfc\u51faTXT\u6587\u6863\n'\u53c2\u6570\uff1a\u6570\u7ec4\u53d8\u91cf\n'\u751f\u6210\u7684TXT\u6587\u4ef6\u8def\u5f84\u548c\u540d\u79f0\u4e0e\u5f53\u524d\u6587\u6863\u4e00\u6837\n'======================================================\nSub SaveTxt(ByVal arr As Variant)\n    Dim path As String\n    Dim i As Integer, j As Integer\n    Dim Str As String\n    path = ThisWorkbook.path &amp; \"\\\" &amp; Left(ThisWorkbook.Name, _\n        Application.Find(\".\", ThisWorkbook.Name) - 1) &amp; \".txt\"\n    Open path For Output As #1\n    For i = 1 To UBound(arr, 1)\n        For j = 1 To UBound(arr, 2)\n            Str = Str &amp; arr(i, j)\n        Next j\n        Print #1, Str\n        Str = \"\"\n    Next i\n    Close #1\nEnd Sub\n'\u5904\u7406\u5408\u5e76\u5355\u5143\u683c\u7684\u5236\u8868\u7b26\u683c\u5f0f\nSub merge(ByRef arr() As Variant, ByVal stRow As Integer, _\n    ByVal edRow As Integer, ByVal stCol As Integer, ByVal edCol As Integer)\n    Dim Row1 As Integer\n    Dim Row2 As Integer\n    Dim Col1 As Integer\n    Dim Col2 As Integer\n    Dim i As Integer, j As Integer\n    '\u6570\u7ec4\u4e2d\u7684\u4f4d\u7f6e\n    Row1 = stRow * 2 - 1\n    Col1 = stCol * 2 - 1\n    Row2 = edRow * 2 - 1\n    Col2 = edCol * 2 - 1\n    '\u5904\u7406\u5185\u90e8\u7ebf\u6846\n    For i = Row1 + 1 To Row2 - 1\n        For j = Col1 + 1 To Col2 - 1\n            If i Mod 2 &lt;> 0 Then\n                arr(i, j) = String(LenB(StrConv(arr(i, j), vbFromUnicode)), \" \")\n            ElseIf j Mod 2 &lt;> 0 Then\n                arr(i, j) = \"\"\n            End If\n        Next j\n    Next i\n    '\u5904\u7406\u4e0a\u4e0b\u6846\u7ebf\n    For i = Col1 + 1 To Col2 - 1\n        arr(Row1, i) = Replace(arr(Row1, i), \"\u253c\", \"\u2534\")\n        arr(Row1, i) = Replace(arr(Row1, i), \"\u252c\", \"\u2500\")\n        arr(Row2, i) = Replace(arr(Row2, i), \"\u253c\", \"\u252c\")\n        arr(Row2, i) = Replace(arr(Row2, i), \"\u2534\", \"\u2500\")\n    Next i\n    '\u5904\u7406\u5de6\u53f3\u6846\u7ebf\n    For i = Row1 + 1 To Row2 - 1\n        arr(i, Col1) = Replace(arr(i, Col1), \"\u253c\", \"\u2524\")\n        arr(i, Col1) = Replace(arr(i, Col1), \"\u251c\", \"\u2502\")\n        arr(i, Col2) = Replace(arr(i, Col2), \"\u253c\", \"\u251c\")\n        arr(i, Col2) = Replace(arr(i, Col2), \"\u2524\", \"\u2502\")\n    Next i\nEnd Sub\nSub InsertLine(ByRef arr() As Variant, ByVal InsRow As Integer, ByVal n As Integer)\n    Dim i As Integer, j As Integer\n    Dim brr() As Variant\n    Dim Length As Integer, L As Integer\n    Dim row As Integer, Col As Integer\n    '\u63d2\u5165\u540e\u8868\u683c\u7684\u884c\u6570\u548c\u5217\u6570\n    row = UBound(arr, 1) + n\n    Col = UBound(arr, 2)\n    ReDim brr(1 To row, 1 To Col)\n    '\u628aarr\u7684\u5185\u5bb9\u9010\u4e2a\u590d\u5236\u5230brr\u4e2d\uff0c\u540c\u65f6\u63d2\u5165\u6362\u884c\u7684\u5185\u5bb9\n    For i = 1 To row\n        For j = 1 To Col\n            Select Case i\n                '\u590d\u5236\u63d2\u5165\u4e4b\u524d\u7684\u884c\n                Case Is &lt;= InsRow\n                    brr(i, j) = arr(i, j)\n                '\u5904\u7406\u63d2\u5165\u884c\u7684\u5185\u5bb9\n                Case Is &lt;= InsRow + n\n                    Select Case j Mod 2\n                    Case Is = 1 '\u5947\u6570\u5217\u5373\u5236\u8868\u7b26\u5217\uff0c\u76f4\u63a5\u590d\u5236\u4e0a\u4e00\u884c\u7684\u5185\u5bb9\n                        brr(i, j) = arr(InsRow, j)\n                    Case Is = 0 '\u5076\u6570\u5217\u5373\u6570\u636e\u6240\u5728\u5217\uff0c\u6309\u884c\u53f7\u622a\u53d6\u5b57\u7b26\u4e32\u5185\u5bb9\n                        Length = LenB(StrConv(arr(InsRow, j), vbFromUnicode)) '\u5b57\u7b26\u4e32\u5b57\u8282\u6570\n                        L = CellWidth(InsRow, j, rng, ColWidth) \/ 2\n         '\u5355\u5143\u683c\u5b57\u8282\u6570\/2\n                        If Length &lt;= L * 2 Then\n                            brr(i, j) = String(Length, \" \")\n                        Else\n                            brr(i, j) = Mid(arr(InsRow, j), L * (i - InsRow) + 1, L)\n' Debug.Print arr(InsRow, j),LenB(StrConv(arr(InsRow, j), vbFromUnicode))\n                            '\u4f7f\u63d2\u5165\u7684\u5355\u5143\u683c\u5b57\u8282\u957f\u5ea6\u7b26\u5408\u8981\u6c42\n                            Length = LenB(StrConv(brr(i, j), vbFromUnicode))\n                            If Length &lt; L * 2 Then brr(i, j) = brr(i, j) &amp; String(L * 2 - Length, \" \")\n                            '\u5904\u7406\u539f\u5355\u5143\u683c\u7684\u5b57\u7b26\u5185\u5bb9\n                            brr(InsRow, j) = Left(arr(InsRow, j), L)\n                            Length = LenB(StrConv(brr(InsRow, j), vbFromUnicode))\n                            If Length &lt; L * 2 Then brr(InsRow, j) = brr(InsRow, j) &amp; _\n                                String(L * 2 - Length, \" \")\n                        End If\n                    End Select\n                '\u590d\u5236\u63d2\u5165\u884c\u4e4b\u540e\u7684\u5185\u5bb9\n                Case Else\n                    brr(i, j) = arr(i - n, j)\n            End Select\n        Next j\n    Next i\n    '\u5c06brr\u7684\u503c\u8d4b\u7ed9arr\n    ReDim arr(1 To row, 1 To Col)\n    arr = brr\nEnd Sub\n'Function IsFirstCol(ByVal i As Integer, ByVal j As Integer, Rng As Range)\n' With Rng.Cells(i \/ 2, j \/ 2)\n' If .MergeArea.Column = .Column Then\n' IsFirstCol = True\n' Else\n' IsFirstCol = False\n' End If\n' End With\n'End Function\n'\u5355\u5143\u683c\u5bbd\u5ea6\nFunction CellWidth(ByVal i As Integer, ByVal j As Integer, rng As Range, ColWidth As Variant)\n    Dim width As Integer\n    Dim brr() As Variant\n    Dim L As Integer\n    Dim k As Integer\n    Dim strL As Integer\n    With rng.Cells(i \/ 2, j \/ 2)\n        strL = LenB(StrConv(.Value, vbFromUnicode))\n        If .MergeCells Then\n            If .MergeArea.Column = .Column Then\n                width = 0\n                brr = .MergeArea.Value\n                If UBound(brr, 2) > 1 Then\n                    For k = 2 To (UBound(brr, 2) - 1) * 2\n                        width = width + ColWidth(j + k)\n                    Next k\n                    L = 2 * (UBound(brr, 2) - 1) + width + ColWidth(j)\n                    If L &lt; strL Then L = Application.Max(StrLength * 2, L)\n                Else\n                    L = Application.Max(ColWidth(j), Application.Min(StrLength * 2, strL))\n                End If\n            Else\n                L = 0\n            End If\n        Else\n            L = ColWidth(j)\n        End If\n    End With\n    If i Mod 2 = 1 Then L = ColWidth(j)\n    If L Mod 2 = 1 Then L = L + 1\n    CellWidth = L\nEnd Function\n<\/pre>\n\n\n\n<h3 class=\"wp-block-heading\">\u4e00\u70b9\u5c0f\u63d0\u793a<\/h3>\n\n\n\n<p class=\"wp-block-paragraph\">\u5728\u5bfc\u51fa\u4e4b\u524d\uff0c\u8bb0\u5f97\u9009\u4e2d\u4f60\u60f3\u8981\u5bfc\u51fa\u7684\u8868\u683c\u533a\u57df\u54e6\uff01<br>\u5bfc\u51fa\u7684txt\u6587\u4ef6\u5b57\u4f53\u9700\u8981\u9009\u62e9\u7b49\u5bbd\u5b57\u4f53\uff08\u5982\u65b0\u5b8b\u4f53\uff09\uff0c\u683c\u5f0f\u624d\u80fd\u5bf9\u9f50\u54df\uff01<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u563f\uff0c\u662f\u4e0d\u662f\u89c9\u5f97\u8fd9\u4e2a\u5c0f\u9b54\u6cd5\u5f88\u6709\u8da3\uff1f\u4ee5\u540e\u518d\u4e5f\u4e0d\u7528\u4e3a\u5206\u4eabExcel\u8868\u683c\u800c\u70e6\u607c\u4e86\uff0c\u4e00\u952e\u5bfc\u51fa\uff0c\u6574\u6574\u9f50\u9f50\uff0c\u5988\u5988\u518d\u4e5f\u4e0d\u7528\u62c5\u5fc3\u6211\u5206\u4eab\u6570\u636e\u5566\uff01\u5982\u679c\u4f60\u8fd8\u6709\u5176\u4ed6\u6709\u8da3\u7684VBA\u5c0f\u6280\u5de7\uff0c\u5feb\u5feb\u7559\u8a00\u5206\u4eab\u7ed9\u5927\u5bb6\u5427\uff01<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u5927\u5bb6\u597d\uff0c\u6211\u662f\u4f60\u4eec\u7684Excel\u5c0f\u52a9\u624b\uff0c\u4eca\u5929&#8230; <\/p>\n","protected":false},"author":1,"featured_media":3603,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[40],"tags":[61,64,36,49,62,63],"class_list":["post-3601","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-vba","tag-excel","tag-txt","tag-vba","tag-49","tag-62","tag-63"],"_links":{"self":[{"href":"https:\/\/www.bytetape.com\/index.php?rest_route=\/wp\/v2\/posts\/3601","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.bytetape.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.bytetape.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.bytetape.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.bytetape.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=3601"}],"version-history":[{"count":4,"href":"https:\/\/www.bytetape.com\/index.php?rest_route=\/wp\/v2\/posts\/3601\/revisions"}],"predecessor-version":[{"id":3610,"href":"https:\/\/www.bytetape.com\/index.php?rest_route=\/wp\/v2\/posts\/3601\/revisions\/3610"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.bytetape.com\/index.php?rest_route=\/wp\/v2\/media\/3603"}],"wp:attachment":[{"href":"https:\/\/www.bytetape.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3601"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.bytetape.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3601"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.bytetape.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3601"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}