VBA 移動儲存格位置，另存新檔及刪除 - Excel程式區

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

[發問] VBA 移動儲存格位置，另存新檔及刪除

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

1^# 跳轉到 »

發表於 2020-12-12 12:37 | 顯示全部帖子

參考檔:

Xl0000397-1.rar (13.92 KB)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

2^#

發表於 2020-12-19 14:41 | 顯示全部帖子

回復 5# lovenice831

30欄是連續的嗎??? 還是跳躍的???
第幾欄到幾欄???

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

3^#

發表於 2020-12-21 17:19 | 顯示全部帖子

回復 7# lovenice831

Sub 月結()
Dim xS As Worksheet, T$, i&, xE As Range
Call 清除
Set xS = Sheets("月結")
If xS.[C1] = "" Then MsgBox "請輸入篩選文字!  ": Exit Sub
For i = 1 To 2
With Sheets(i)
      If .FilterMode Then .ShowAllData '若工作表篩選中, 顯示[全部]
      .[A2].AutoFilter Field:=2, Criteria1:=xS.[C1] '執行篩選
      Set xE = xS.Cells(Rows.Count, 1).End(xlUp)(2)
      .AutoFilter.Range.Offset(1, 2).Resize(, 30).Copy xE '複製篩選資料  '2 = c欄 (從A欄算起0-1-2)
      .ShowAllData '恢復顯示[全部]
End With
Next i
End Sub

TOP

准提部林