回复：有excel数据处理问题的可以晒出你的问题，我来帮你解答

统计工资
先按照包装、销售、拍照三项进行小计，然后计算总工资。（注：员工姓名一栏应该是可以唯一标示身份的ID）

宏代码如下：
Const N As Integer = 7
Sub calculate()
Dim counter As Integer
Dim flag As Boolean
counter = 2
Worksheets("sheet1").Cells(1, N) = "姓名"
Worksheets("sheet1").Cells(1, N + 1) = "包装工资"
counter = myFun(counter, 5, 2, N + 1)
Worksheets("sheet1").Cells(1, N + 2) = "销售工资"
counter = myFun(counter, 8, 3, N + 2)
Worksheets("sheet1").Cells(1, N + 3) = "拍照工资"
counter = myFun(counter, 5, 4, N + 3)
Worksheets("sheet1").Cells(1, N + 4) = "总工资"
For Index = 2 To counter - 1
With Worksheets("sheet1")
.Cells(Index, N + 4).Value = .Cells(Index, N + 1).Value + .Cells(Index, N + 2).Value + .Cells(Index, N + 3).Value
End With
Next
End Sub
Function myFun(ByVal counter As Integer, ByVal price As Integer, ByVal col As Integer, resultColume As Integer) As Integer
Dim i, k As Integer
Dim Name As String
Dim flag As Boolean
For i = 2 To Worksheets("sheet1").UsedRange.Rows.Count Step 1
Name = Worksheets("sheet1").Cells(i, col).Value
If Len(Name) > 1 Then
flag = False
For k = 2 To counter
If Name = Worksheets("sheet1").Cells(k, N).Value Then
Worksheets("sheet1").Cells(k, resultColume).Value = Worksheets("sheet1").Cells(k, resultColume).Value + price '价格为price
flag = True
Exit For
End If
Next
If flag = False Then
Worksheets("sheet1").Cells(counter, N) = Name
Worksheets("sheet1").Cells(counter, resultColume) = price
counter = counter + 1
End If
End If
Next
myFun = counter
End Function

大神帮忙做下公式吧

小弟有一事求教:若储存格数值小于多少，则传回这个数值乘以多少的值！例如:若储存格数值小于20则在另一储存格传回这个储存格乘以3的值，若大于20则传回这个储存格乘以5的值！有没有函数公式啊？

使用函数IF
假设数据存放在A列，且第一行为标题行，则可以在B2单元格输入=IF($A2<20,3*$A2,5*$A2)，返回结果即为所需要的。

大神，可帮忙？

我想问下两个表格，我想筛选相同的关键字，具体该怎么办呢、

就是我想把左边的这一栏，和右边的这一栏进行对比筛选
左边字比较少，我想做关键字，右边字多，在里面找
就是右边有左边相同的，就标记出来只要找出相同的就行
我只会找完全相同的
这种不完全的就不行了

在下面的数据中找出E列中与D列能够进行匹配的数据并用红色背景标记。匹配规则是D列字符串是E列的字串则匹配成功，否则匹配失败。例如D列“阿莫西林”能够与E列“阿莫西林片”能够匹配陈功。数据、结果及宏如下：

宏：
Sub test()
sourceSheetName = "sheet1"
Worksheets(sourceSheetName).Activate
N = 100 'ActiveSheet.UsedRange.Rows.Count
For i = 2 To N Step 1
Name = ActiveSheet.Cells(i, "D").Text
For j = 2 To N Step 1
If InStr(ActiveSheet.Cells(i, "E").Text, Name) > 0 Then
ActiveSheet.Cells(i, "E").Interior.ColorIndex = 3
End If
Next
Next
End Sub

宏：
Sub test()
sourceSheetName = "sheet1"
M = Worksheets(sourceSheetName).UsedRange.Columns.Count
Worksheets(sourceSheetName).Activate
For Index = 2 To M
Sum = 100
For Row = 2 To 4
Sum = Sum - CInt(ActiveSheet.Cells(Row, Index).Value)
Next
ActiveSheet.Cells(5, Index).Value = Sum & "%"
Next
End Sub

用字典就行了。

受限对数据进行排序，保证A列相同的数据相邻，然后在C1中输入B1单元格的内容，接着在C2输入公式：
=IF(EXACT($A2,$A1)=TRUE,$C1 & "、" & $B2,$B2)
然后对C列进行填充，最后得到的结果如下所示：

显然C4，C7，C9,C10为所需要的内容，但是如果数据量大自己找也很麻烦，于是接着下面的做。
在D1单元格输入=EXACT($A2,$A3)，然后对D列进行填充，效果如下：

然后D列中值为FALSE的即为所需要的。这时候进行筛选将对应的拷贝出来进行了。

由于这两天有考试，所以14号之前暂时不进行解答了，希望大家可以理解。如果有问题，在帖子里面留下问题，考完后我会进行逐一解答。还有，不要总是私聊我，先把问题在帖子里面提出来，如果确实不方便沟通或者需要发送数据之类的话再私下联系。单独问我时候不一定会给你及时解答，但是如果在帖子里面提问我一定会帮你解答的。