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

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

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

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

高中生 Rank: 3 Rank: 3

帖子: 523
主題: 56
精華: 0
積分: 601
點名: 84
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2025-4-10

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

帖子: 523
主題: 56
精華: 0
積分: 601
點名: 84
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2025-4-10

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

複製代碼

靜思自在 : 忘功不忘過，忘怨不忘恩。

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