VBA让2个单元格对比

countif算不了.=sumproduct((A1:A9="250ml")*(B1:B9="合格"))

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

A单元格内如果是直接输入的5*2,则他是属于文本,不能被计算；应该是在A单元格中输入=5*2,在B单元格中输入10,则在C单元格中输入=A*B,则显示结果为100.（单元格中是数字的直接输入,带有运算

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

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

第一个输入=index($1:$1,row(A1))下拉再问：没用啊

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

在E1输入好之后选定此单元格,然后在右下角有一个小黑点之类的东西,鼠标放在那,按住往下拉就行了!不明白HI我

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

switch和choose都是做选择用的函数,不同点在switch的参数更灵活一些例如现在需要填一份付款单,其中美元用$,人民币用￥,欧元用€封闭小写单元格A1,填大写,A2单元格填小写.

例：数据在E1单元格=SUMPRODUCT(--MID(E1,ROW(INDIRECT("1:"&LEN(E1))),1))或=SUM(--MID(E1,ROW(INDIRECT("1:"&LEN(E

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

A6=A1&A2&A3&A4&A5 同理操作

有固定长度或有统一分隔符的数据可以用“数据”、“分列”功能分到各单元格.其他情况如果有一定规律的可以用公式分列.再问：麻烦你再解答谢谢假如“XH”X代表的内容不太一致字段数也有差异，H代表的内容一致。

ABC日期金额销售客服2012/4/29400客服42012/4/30200客服12012/5/1200客服12012/5/1400客服32012/5/

假如数据分别在A、B、C三列,从第一行开始,则某个单元格内输入或复制以下公式：=SUMPRODUCT((A1:A100=1)*(B1:B100="有")*C1:C100)注意：公式中从1:100行需要

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