如何用VBA 把SUBOROUTINE寫入特定WORKSHEET？ - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何用VBA 把SUBOROUTINE寫入特定WORKSHEET？

返回列表下一主題上一主題發帖

[發問] 如何用VBA 把SUBOROUTINE寫入特定WORKSHEET？

高中生 Rank: 3 Rank: 3

帖子: 533
主題: 58
精華: 0
積分: 613
點名: 261
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2015-11-1 16:21 | 顯示全部帖子

回復 24# 小俠客

看看下列程式能不能適合使用

Sub CompactSheet()
Dim ws As Worksheet
Dim R%, C%
Set ws = Sheets("Output")
With ws
ws.[A1].Select
Debug.Print .UsedRange.Address
On Error Resume Next
.Cells.Ungroup
.Cells.EntireColumn.Hidden = False
.Cells.Delete
'Copy 一區沒有隱藏過的 Columns 到 .UsedRange
[A1].Select
Debug.Print .UsedRange.Address
C = .UsedRange.Columns.Count
Range("A1").Resize(.Rows.Count, C).Copy .UsedRange
[A1].Select
Debug.Print .UsedRange.Address
On Error GoTo 0
End With
End Sub

複製代碼

高中生 Rank: 3 Rank: 3

帖子: 533
主題: 58
精華: 0
積分: 613
點名: 261
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2015-11-4 23:53 | 顯示全部帖子

回復 27# 小俠客

這個用 13# 的附件試過

Sub CompactSheet()
Dim ws As Worksheet
Dim C%, Col%
Set ws = Sheets("Output")
ws.Select
With ws
' .[A1].Select
Debug.Print .UsedRange.Address
On Error Resume Next
' .Cells.Ungroup
' .Cells.EntireColumn.Hidden = False
If ActiveWindow.FreezePanes Then ActiveWindow.FreezePanes = False
' Columns("A:Z").Delete Shift:=xlToLeft
Col = .UsedRange.Column
C = .UsedRange.Columns.Count
.Cells(1, Col).Resize(.Rows.Count, C).Delete Shift:=xlToLeft
.[A1].Select
Debug.Print .UsedRange.Address
On Error GoTo 0
End With
End Sub

複製代碼

靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。

返回列表下一主題上一主題