[已解决]請問老師如何判斷文字

e2solo

如何利用sumproduct函數判斷sheet1中的名稱內第2個文字是1或2呢?
以便做出sheet2的總計

Sub t1()
Dim i,t As Integer
t = Sheets(1).Range("a65536").End(xlUp).Row - 1
for i = 2 to 4   
    Sheets(2).Cells(i, 2) = Evaluate("=SUMPRODUCT(('sheet1'!a2:a" & t & "='sheet2'!A" & i & ")_
      *('sheet1'!b2:b" & t & " like '*1*'))")
End Sub

最佳答案

月排行榜 / 总排行榜

吕?布

2011-10-29 15:10

Sub t1()
    Dim s As String
    Dim arr
'    arr = [SUMPRODUCT((A2:A11=E1)*(MID(B2:B11,2,1)="1"))]   ' 可以这样

    s = "=SUMPRODUCT((A2:A11=E1)*(MID(B2:B11,2,1)=""1""))"   ' 正确
'    s = "SUMPRODUCT((A2:A11=F1)*(MID(B2:B11,2,1)=""1"")"    ' 少一边括号
    arr = Evaluate(s)
    Cells(2, 5) = arr
End Sub

跳转到最佳答案楼层

爱疯

不建议这样使用

最好说明下，哪些数据源（改变前），哪些结果（改变后）

选取少量数据，确保能说清题意，就好列举结果了。

e2solo

老師好
數據源是

單位        名稱
a        a123
a        s124
a        f222
b        a223
b        a125
b        v234
c        a144
c        a244
c        a111
c        g111
其中名稱的第2個文字是指產品的等級
希望能產生以下表

公司        甲級        乙級
a        2        1
b        1        2
c        3        2
指a b c公司甲級及乙級產品各有多少
謝謝老師

爱疯

“名稱的第2個文字”是什么意思？
3楼只有单位和名称，等级在哪里呀？
能否上传excel文件

e2solo

老師
我的意思是名稱的第2個文字，指如a123的1，或b222的2，或s124的1，
1代表甲級，2代表乙級
a表的單位打錯了，應該是公司
我想算出各公司的甲級跟乙級的數量
excel檔已在1樓傳出
謝謝老師

studyexcel

回复 e2solo 的帖子

为了用公式中途加了个辅助列，有点复杂了
另外没排除都是a单位的情况下,产品名有重复的情况

e2solo

老師
不好意思
我的意思只是想知道如何在公式中提出名稱中的第2個字是等於1
我如果在儲存格使用
=SUMPRODUCT((A2:A11=F1)*(MID(B2:B11,2,1)="1"))
沒問題， 可是在vba中使用
cells(2,2)= Evaluate("=SUMPRODUCT((A2:A11=F1)*(MID(B2:B11,2,1)="1")")
就會出錯，不知要如何表示 "1"

吕?布

如果1是文本,Evaluate("=SUMPRODUCT((A2:A11=F1)*(MID(B2:B11,2,1)=""1"")")
如果1是数字,Evaluate("=SUMPRODUCT((A2:A11=F1)*(MID(B2:B11,2,1)=1)")

e2solo

回复 吕?布 的帖子

老師:

使用公式=SUMPRODUCT((A2:A11=E1)*(MID(B2:B11,2,1)="1"))

可以計算出a公司產品編號的第2個文字是1的總數量

可是使用VBA代碼卻無法實現

不知為什麼

煩請老師解答

吕?布

Sub t1()
    Dim s As String
    Dim arr
'    arr = [SUMPRODUCT((A2:A11=E1)*(MID(B2:B11,2,1)="1"))]   ' 可以这样

    s = "=SUMPRODUCT((A2:A11=E1)*(MID(B2:B11,2,1)=""1""))"   ' 正确
'    s = "SUMPRODUCT((A2:A11=F1)*(MID(B2:B11,2,1)=""1"")"    ' 少一边括号
    arr = Evaluate(s)
    Cells(2, 5) = arr
End Sub