From 8e8cd994e1f0db4929503e5eddc48d0bb00b1ce9 Mon Sep 17 00:00:00 2001
From: simple321vip <635344988@qq.com>
Date: Tue, 14 Apr 2026 02:21:18 +0000
Subject: [PATCH] =?UTF-8?q?=E6=9B=B4=E6=96=B0=20vba=5Fcode=5Fcommon.bas?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 vba_code_common.bas | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/vba_code_common.bas b/vba_code_common.bas
index 127b60e..b862490 100644
--- a/vba_code_common.bas
+++ b/vba_code_common.bas
@@ -182,3 +182,13 @@ Sub ToggleAutoFilter(Optional ByVal filterRow As Long = 6)
         End If
     End If
 End Sub
+
+Sub AutoFitColumnWidth(Optional ByVal fitColumnStart As Long = 2, _
+                       Optional ByVal fitColumnEnd As Long = 9)
+    Dim ws As Worksheet
+    Set ws = ActiveSheet
+    
+    If fitColumnStart <= fitColumnEnd Then
+        ws.Columns(fitColumnStart & ":" & fitColumnEnd).AutoFit
+    End If
+End Sub