請問如何把無資料的多餘頁面設定一按鈕刪除 - Excel程式區

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

[發問] 請問如何把無資料的多餘頁面設定一按鈕刪除

simplehope

小學生 Rank: 1

帖子: 15
主題: 2
精華: 0
積分: 23
點名: 0
作業系統: windows 7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
來自: 台中
註冊時間: 2016-9-22
最後登錄: 2021-3-26

論壇贊助勳章

11^# 跳轉到 »

發表於 2016-10-9 18:37 | 顯示全部帖子

回復 14# 准提部林

慚愧…小弟也沒發覺…
搞不懂，為何沒修正之前，一樣是copy , vSht.Range("A1:AM" & R).Copy .[A1] '貼上資料
照理來說應該會一五一十把Range("A1:AM" & R)的內容copy 過去，
但換了[AV1]下拉選單的項目，卻還是copy 沒換之前的內容？
小弟不懂，能說明一下原因嗎？

With xSht
   .Name = SHN:  .Cells.Clear '重命名, 清除內容
   .[BK3] = vSht.[BK3].Value
   .[AV1] = vSht.[AV1].Value
   .[BI3] = vSht.[BI3].Value
   R = Val(vSht.[AT51]) * 52: If R = 0 Then Exit Sub '取得頁數
   vSht.Range("A1:AM" & R).Copy .[A1] '貼上資料
   .Range("A16:A" & R) = "=TEXT(COUNT(AK$16:AK16),""'000"")" '序號公式
   .Range("A1:AM" & R) = .Range("A1:AM" & R).Value '全部內容貼成值
   For Each vR In vSht.[A1:AM1]
      .Range(vR.Address).ColumnWidth = vR.ColumnWidth '欄寬
   Next
   .[BK3] = "": .[AV1] = "": .[BI3] = ""
End With

TOP

simplehope