我正在嘗試在 Excel 中組合兩個宏。
兩者都是分開作業的，但我不知道如何將兩者結合起來。兩者都做一個回圈。
第一個是：
Sub UpdateSheet()
Dim shtRng As Range
Dim c As Variant
Dim rng As Range
Set shtRng = Worksheets("SheetB").Range("F2:F39")
For Each c In shtRng
Worksheets("SheetA").Range("CA1:CZ99").Copy Worksheets(c.Value).Range("CA1")
Worksheets(c.Value).Range("CA1:CZ1").Orientation = 90
Worksheets(c.Value).Columns("CA:CZ").ColumnWidth = 5
Worksheets(c.Value).Columns("CA:CZ").HorizontalAlignment = xlCenter
Worksheets(c.Value).Columns("CA:CZ").VerticalAlignment = xlBottom
Worksheets(c.Value).Columns("CA").Font.Size = 14
Worksheets(c.Value).Columns("CA").Font.Bold = True
Worksheets(c.Value).Range("CB2:CZ2").Font.Size = 14
Worksheets(c.Value).Range("CB2:CZ2").Font.Bold = True
Worksheets(c.Value).Range("CB3:CZ99").Font.Size = 14
Worksheets(c.Value).Range("CB3:CZ99").Font.Bold = True
Worksheets(c.Value).Range("CB3:CZ99").HorizontalAlignment = xlCenter
Worksheets(c.Value).Range("CB3:CZ99").VerticalAlignment = xlCenter
Next c
End Sub
第二個是：
Sub HideEmptyColumns()
Dim rng As Range
Application.ScreenUpdating = False
For Each rng In Worksheets("c.Value").Range("CA1:CZ1")
If rng.Value = "" Then
rng.EntireColumn.Hidden = True
End If
Next rng
End Sub
對于你們所有的巫師來說，這可能很簡單，但我還在學習。
uj5u.com熱心網友回復：
這應該讓你進入球場：
Sub UpdateSheet()
Dim shtRng As Range
Dim c As Variant
Dim rng As Range
Set shtRng = Worksheets("SheetB").Range("F2:F39")
For Each c In shtRng
Worksheets("SheetA").Range("CA1:CZ99").Copy Worksheets(c.Value).Range("CA1")
Worksheets(c.Value).Range("CA1:CZ1").Orientation = 90
Worksheets(c.Value).Columns("CA:CZ").ColumnWidth = 5
Worksheets(c.Value).Columns("CA:CZ").HorizontalAlignment = xlCenter
Worksheets(c.Value).Columns("CA:CZ").VerticalAlignment = xlBottom
Worksheets(c.Value).Columns("CA").Font.Size = 14
Worksheets(c.Value).Columns("CA").Font.Bold = True
Worksheets(c.Value).Range("CB2:CZ2").Font.Size = 14
Worksheets(c.Value).Range("CB2:CZ2").Font.Bold = True
Worksheets(c.Value).Range("CB3:CZ99").Font.Size = 14
Worksheets(c.Value).Range("CB3:CZ99").Font.Bold = True
Worksheets(c.Value).Range("CB3:CZ99").HorizontalAlignment = xlCenter
Worksheets(c.Value).Range("CB3:CZ99").VerticalAlignment = xlCenter
'Adding other sub's code here:
For Each rng In Worksheets(c.Value).Range("CA1:CZ1")
If rng.Value = "" Then
rng.EntireColumn.Hidden = True
End If
Next rng
Next c
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/405362.html
標籤：
上一篇：如何在gradle中包含帶有id的maven存盤庫？
下一篇：根據用戶輸入粘貼位置