vba怎样循环引用递增单元格然后将运算的结果顺次输出到单元格中

1、复制-----选择性粘贴----数据2、选择SHEET2中的单元格,“="SHEET1$B$1",然后往下拉.

dimi&withsheets(1)i=.[b1].value.cells(i,1)=""endwith按你的原代码写法就是下面的sheets(1).range("A"&sheets(1).range

FunctionProjectALL(r,c)'r是行号,c是列号m1=Cells(r-1,c).Value'上一行数据m2=Cells(r,c).Value'本行数据l1=Len(m1)'m1长度l

=IF(AND(RIGHT(b1,1)A3,RIGHT(b1,1)A4),b1,"")再问：我试过了这个公式：=IF(AND(RIGHT(b1,1)A3,RIGHT(b1,1)A4),b1,"")不行

fori=0to9next--------------whilei0wend---------------dowhilei0loop----------------doloopwhilei0-----

L1=A1,M1=A2,N1=A3,如何用公式带出O1=A4P1=A5Q1=A6.L1单元格写入公式=INDEX($A:$A,COLUMN(A1))或=OFFSET($A1,COLUMN(A1)-1,

A2=IF($A$1>=OFFSET($B$1,ROW(A1)-1,),$A$1-OFFSET($B$1,ROW(A1)-1,),$A$1+OFFSET($B$1,ROW(A1)-1,))试一下,测试

FunctionJiShu(r,c)'r表示行号,c表示列号arr=Split(Trim(Cells(r,c).Value),",")m=UBound(arr)Fori=0TomIfMid(arr(i

FunctionDouHao(r,c)'r表示行号,c表示列号arr=Split(Cells(r,c).Value,",")DouHao=UBound(arr)EndFunction

写k2地址的时候这样写$k$2再问：�����һ��������������Ե�ַ�Ĺ�ʽ�������õĻ�����ʲôֵ再答：��Ǹ��û���������˼���ܾٸ����ӿ�ô

Sub a()Range("F1:O1") = ""j = 5For i = 0

FunctionMiddleTime(r,c)'r表示行号,c表示列号arr=Split(Cells(r,c).Value,",")douhao1=UBound(arr)Ifdouhao1>=3The

第2次循环,i=1,j=-3,n=2第3次循环,i=1,j=-2,n=3第4次循环,i=1,j=--1,n=4第5次循环,i=2,j=-4,n=5...共循环3x4=12次,所有n=12-------

PrivateSubCommandButton1_Click()Dimi,jAsIntegerj=0Fori=1To[a65536].End(xlUp).RowIfRange("a"&i)=Range

eplace(range("A1"),".","")

2楼方法可行也可以用N函数转换=(A1+N(B1)+C1)/3

可以直接用分类汇总解决 VBA代码如下Sub SubTotal()Dim k%k = 4For i = 4 T

HLOOKUP(lookup_value,table_array,row_index_num,range_lookup)你是要row_index_num参数按行递增是吗,则公式改成=HLOOKUP($

Range("A"&x&":I"&x)

Subaaa()DimssAsRange,aAsOLEObjectFori=1To10Setss=Range("A"&i)Seta=ActiveSheet.OLEObjects.Add(ClassTy