-2

关于我目前为我的工作编写的一些 excel 宏，我有 4 个问题。

1.我需要一个公式来查找文件的最后一行，这样我就不必每次运行它时都手动粘贴它。我目前有：

Selection.AutoFill Destination:=Range("K2:K148")
Range("K2:K148").Select

我每次都必须手动输入K148。它不仅适用于该列。所以我想要一个公式来保存最后一行的数字，我可以粘贴进去。像“ROWS=actualnumberofrows”这样我使用的那个看起来像这样：

每次我运行它。我目前有：

Selection.AutoFill Destination:=Range("K2:K(ROWS)")
Range("K2:K(ROWS)").Select

.2. 当我想将日期粘贴到我的 Excel 表单中因为我的程序需要它时，它会以错误的格式粘贴它。这是我的公式：

Range("N2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = Date
Selection.AutoFill Destination:=Range("N2:N148"), Type:=xlFillCopy
Range("N2:N148").Select

但它将它粘贴为年/月/日，我需要它作为年月日我如何更改它以便它自动这样做？

.3. 我没有这方面的功能，但我喜欢在此之后发生自动过滤功能：

Rows("1:1").Select
Selection.AutoFilter
Columns("I:I").Select
Selection.NumberFormat = "General"

当我尝试在 excel 中记录自动过滤时，它会根据我记录的行数进行过滤。这几乎与问题#1有关。

.4. 我目前使用此功能进行保存，但我有一个问题：

Private Sub spara()


ActiveWorkbook.SaveAs Filename:= _
    "T:\Sweden\Routine leads\Adlantic+Euroads\MCM_" + ActiveWorkbook.Name _
    , FileFormat:=xlCSV, CreateBackup:=False
End Sub

它会自动保存，但我需要它保存；在其文件中。这有可能以某种方式改变它的保存方式吗？

4

1 回答 1

0

这是您的第一个问题的一些代码：

Sub dural()
    Dim r As Range, N As Long
    N = Cells(Rows.Count, "K").End(xlUp).Row
    Set r = Range("K2:K" & N)
    Selection.AutoFill Destination:=r
    r.Select
End Sub
于 2013-10-08T15:20:14.783 回答