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

錄製VBA小毛病

louiswei1986

小學生 Rank: 1

帖子: 8
主題: 1
精華: 0
積分: 15
點名: 0
作業系統: WINDOWS 10
軟體版本: 2010
閱讀權限: 10
性別: 男
來自: 台灣新北
註冊時間: 2016-5-24
最後登錄: 2024-3-18

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-6-3 09:30 | 顯示全部帖子

錄製VBA小毛病

各位大大，我錄製的巨集如下，大概功能就是K2+L2,K3+L3...最後再取代K欄，
我的VBA可能錄的比較醜，但是功能上大致是可以使用的。

最大的問題就是 Selection.AutoFill下拉函式的時候，
我沒辦法確定這個檔案有多少列，所以它會一直補0到9999列。
想請問這類型判別是否一定要使用迴圈才能解決？

感謝各位。

Sub 巨集2()
'
' 巨集2 巨集
'

'
Range("P2").Select
Selection.NumberFormatLocal = "G/通用格式"
ActiveCell.FormulaR1C1 = "=RC[-5]+RC[-4]"
Range("P2").Select
Selection.AutoFill Destination:=Range("P2:P9999")
Range("P2:P9999").Select
Selection.Copy
Range("K2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
Range("L:M,P:P").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("A:A").ColumnWidth = 19.25
Range("L:M,1:1048576").Select
Range("O1").Activate
Selection.Columns.AutoFit
Selection.Rows.AutoFit
With Selection.Font
      .Name = "微軟正黑體"
      .Name = "Century Gothic"

End With

Range("A2").Select
End Sub