vba 单元格等于单元格

无需使用函数假设这些空白单元格在a列选中需要填充的部分按f5键定位条件——空值把输入法切换到英文在输入栏输入=按一下上箭头按ctrl+回车ok空白填充完毕

比如A1单元格有公式8*9*4+12/5+35*2可以在B1单元格进行操作选择B1单元格CTRL+F3打开定位对话框定位名称:ABC引用位置:=evaluate(A1)确定在B1单元格输入公式=ABC

假设你说的是A1,B1两个单元格使后一单元格数字等于10减去前一单元格的数字则B1单元格写入公式=10-A1是要这么简单的公式吗?

假如你A1里面是函数,B1要等于A1中的函数插入－名称－定义.上面名称框里输入一个名称,比如X,下面“引用位置”输入公式：=GET.CELL(6,Sheet2!$A1),确定.B1中输入=X然后下拉

SUM函数,返回某一单元格区域中数字、逻辑值及数字的文本表达式之和.SUM(列名),不懂问我! 假如算C1到C4内所有和的话,fx=SUM(C1:C4),你可以直接选中要算和的行或列!

="客户应该预付我们30%（"&A1&"）,."把A1换成你所说的另一个单元格地址就可以了.

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

=if(or(a1=d1,a1=e1,a1=f1,a1=g1,a1=h1,a1=i1,a=j,a1=k1),"字符","")可以用"或or"函数再问：你所说的方法我也会,我是想有没有一个函数能代替or

C1单元格写入公式=IF(AND(A1="",B1=""),"",IF(A1=B1,"正确",IF(A1B1,"不正确")))当A1,B1为空单元格时值为空=IF(OR(A1="",B1=""),""

表一A2中输入=if(A1=sheet2!A1,sheet2!A2,"")再问：后面的""什么意思呀另外我表一的A1对应的是表二的30多行数据可能是A1到A30A1到A30分别对应B1到B30有什么简

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

G2公式=SUMPRODUCT(B$1:F$1,B2:F2)下拉填充

B1单元格输入公式=IF(ISNUMBER(A1),A1,"")

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

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

在用vba在模块里建立一个函数如下:Functionjishu(arrAsRange)AsIntegerDimiAsIntegerFori=1Toarr.Rows.CountIfVal(Cells(i

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

示意图如下：在B2中输入公式：=IFERROR(INDEX($A:$F,MATCH($A2,$D:$D,0),COLUMN(E1)),"") ,公式右拉至C2,再下拉.

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