作者:乔山办公网日期:
返回目录:excel表格制作
你是要运百行 EXCEL工作表函数还是要给在VBA中给单度元格写公式
如果是要版用函数
applivation.worksheetfunction.
如果是要给格写公权式 比如 B4=A1+1
请用 range("B4").Formula = "=A1+1"
Sub zz()
Cells(6, 2).Formula = "=" & Cells(5, 1).Address(0, 0)
Range([b6], Cells(Cells(Rows.Count, 1).End(3).Row, 2)).FillDown
End Sub
Sub test()
'这段代码是用来去除A列+B列的双条件重复值e799bee5baa6e58685e5aeb9339
Dim r%, i% '定义变量
Dim arr, brr '定义变量
Dim d As Object '定义变量
Set d = CreateObject("scripting.dictionary") ' 创建字典项目--d
With Worksheets("sheet1")
r = .Cells(.Rows.Count, 1).End(xlUp).Row '取得"sheet1"工作表的A列末行的行号,貌似下面没用着这个变量
arr = .Range("a2:b12") '将"sheet1"工作表的区域 a2:b12 赋值给数组arr
For i = 1 To UBound(arr) 'UBound(arr)为数组arr的下标,数组从上至下循环一次
xm = arr(i, 1) & "+" & arr(i, 2) '用加号来合并A、B列的值
d(xm) = "" '将合并后的值赋值为字典的Key,对应的ITEM值为空。字典的key具有单一性,这样就可以去除重复。
Next
m = 14 '设置变量m的初始值
For Each aa In d.keys '将字典的key值循环一次
m = m + 1 'm值每次加1
.Cells(m, 1).Resize(1, 2) = Split(aa, "+") '在"sheet1"工作表的A15开始,输出双条件不重复值。Split用来分开加号左右的两个值
Next
End With
End Sub