Tag: 子程序

在Excel中删除单元格和相邻的值，但保持最大的数字

这是我得到的Excel表的一个例子： 1631823842 1 1631823842 2 1631823842 3 1631823853 1 1631823853 2 1631823859 1 1631823859 2 1631823859 3 我试图找出如何删除所有重复，除了最大的。 所以我会留下： 1631823842 3 1631823853 2 1631823859 3 我怎样才能完成这与Excel？ 尝试，但我不知道什么命令是多列。 试过A：B和A，B。 很确定我= 2是正确的。 这里是： Sub sclera() Dim lastRow As Long e = 1 With ActiveSheet lastRow = .Cells(.Rows.Count, "A:B").End(xlUp).Row For I = 2 To lastRow If Left(.Cells(I + […]

Excel VBA调用来自另一个具有多个input，不同大小输出的子部分

我想在同一个模块里面调用另一个sub的sub。 第一个子将是我的主代码，在那里我会打电话给第二个子程序。 第二个子程序接收多个input为整数，双精度，双精度数组和双精度matrix。 数组和matrix的大小是已知的，并存储在一个整型variables中。 该子也返回几个输出。 所以，我想要做这样的事情。 sub Main() Nc As integer Dim kij(1 To Nc, 1 To Nc), xi(1 to Nc), a1 As Double 'I assign values to my variables from the excelsheet eg Nc=Cells(1,1) etc. CalculateA(Nc,kij, xi, a1, a) Cells(5,5)=a end sub sub CalculateA(Nc as integer,kij as matrix double, xi as array double, a […]

excel vba调用具有variables的子程序

我定义了下面的子例程： Sub EnterCellValueMonthNumber(cells As range, number As Integer) range(cells).Select ActiveCell.FormulaR1C1 = number End Sub 当我像这样调用子程序时： EnterCellValueMonthNumber ("N23:Q23",1) 我收到以下错误信息： Compile error Expected: = 我不知道为什么我得到这个消息。 有谁知道我错过了什么？