小编use*_*868的帖子

在我选择了包含数值的范围后,我希望通过VBA =SUM在每列的底部输入一个公式,即在最后一个选定行之后的行上.对于每列,它应该对整个选择的相应列中的所有值求和.

我怎样才能做到这一点？

现在,我正在使用宏录制器给出的代码:ActiveCell.FormulaR1C1 = "=SUM(R[-10]C:R[-1]C)".问题是当我的范围大于10行时,它不会考虑底部10以上的行.

我想知道是否有人知道如何删除重复的行..比如说,

   A        B       C

1  1        3       4
2  2        6       9
3  TEST     1       2
4  TEST     1       2
5  Both     1
6  Hi               2
7  None     3       3
8  Loud     4       4

对于上面的特定示例,TEST重复两次..在其他一些情况下,名称可以是其他一些类型,如NOON,Morning等.而第8行不一定是最后一行.我不知道如何比较行来检查重复的名称,然后删除它们.我需要运行一个宏,所以我需要VBA.如果您知道,请与我分享..将不胜感激!

尝试代码:

 Sub Macro1()

   Dim LastRow As Long, n As Long, rowstodelete As Long

    LastRow = Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row

      For n = 1 To LastRow

    With Worksheets("Sheet1").Cells(n, 1)
         If .Cells(n, 1) = .Cells(n + 1, 1) Then
           rowstodelete = Worksheets("Sheet1").Cells(n, 1)
           Rows(rowstodelete).Select
           Selection.Delete Shift:=xlUp
         End If …

我想知道是否有人知道如何使用vba来保存.txt在excel中打开的文件？

我曾尝试用UserForm编写代码,但它给了我错误.

我想知道是否有可能让用户选择将它保存在他/她最喜欢的地方,还有他/她最喜欢的名字？

 Public Sub CommandButton1_Click()
 Dim YesOrNoAnswerToMessageBox As String
 Dim QuestionToMessageBox As String
 Dim CurrentFile As String

 QuestionToMessageBox = "Do you want to save?"

YesOrNoAnswerToMessageBox = MsgBox(QuestionToMessageBox, vbYesNo, "Save file")

If YesOrNoAnswerToMessageBox = vbNo Then
     Unload Me 'Cancellation command
Else
CurrentFile = ThisWorkbook.FullName
ActiveWorkbook.SaveAs "C:\myfile.xls", FileFormat:=52
Workbooks.Open CurrentFile
End If
End Sub

当我运行我的代码时,我必须清除在我的工作表中发生的#N/A. 我不知道为什么并且已经调试了一段时间但无济于事.我可以做些什么来解决这个问题是完全从页面中删除它,它们随机发生.如果有人知道如何,请与我分享VBA代码.

做一个简单的复制和粘贴到另一张表的代码

thevaluestocopy = Sheets("pivot").Cells(thefirstrow, 1) _
   .Resize(thelastrow - thefirstrow, 1)
    Worksheets("summary").Cells(3, 16) _
   .Resize(thelastrow - thefirstrow + 1, 16) = thevaluestocopy

我已经使用不同的列嵌套了该代码,因为我的数据透视表在大多数情况下都会更改.当我第二次复制时,#N/A出现..不知道为什么,我相信这个工作正常.

我有2个复选框,我想要做的是当我选择一个,另一个将被取消选择,这意味着用户将无法选择另一个复选框.我想知道是否可以这样做？

我创建了一个GUI来设置数据透视表.

例如,我单击button1它将运行并设置数据透视表.

当我点击时button3,它会有一个,run time error 1004因为它没有数据中的值.那么是否可以让VBA接受该错误并显示该数据不可用的提示？

顺便说一下,我正在使用它

ActiveSheet.PivotTables("PivotTable1").PivotFields("Test").CurrentPage = "Data1"

设置数据透视表.

有3个不同的变量; Data1,Data2,Data3.如果Data3不可用,它将显示错误,但我想提示它显示它不可用..如果您知道如何操作,请与我分享!谢谢!