EXCEL 百问百答（续1）冯德平（网名：山野雪人）

我在制出入库表时有个问题一直没解决，希望你能帮我一下。
     A     B      C     D        E
1 1      1.5      3      3.5      4.2     总数
2 25     35      36      37      38      474.6
3 5      3       4      5     0       559
4 5      5              5      2        65
559和65是错的， 我希望是第1行和下面每行相乘的总数，559和65 应该是39和      38.4。表格有很多项。我就想知道这个 （ 第1行和下面每行相乘的总数 ）

雪人大叔在不在，帮帮忙。

回复：2楼
假定你的数据在Sheet1
你可以这样操作：
1、在Sheet2中的A1中写上：
=Sheet1!A1*Sheet1!A2
复制到B1、C1、D1、E1
你会发现B1变成了：=Sheet1!B1*Sheet1!B2
把那个1前面加一个“$”,即：
=Sheet1!B$1*Sheet1!B2
同要C1也变成了：
=Sheet1!C1*Sheet1!C2
也在那个1前面加个“$”,即：
=Sheet1!C$1*Sheet1!C2
同样对D1、E1也这样处理。然后将A1至E1向下复制，在F1求和，即写上：
=SUM(A1:E1)
把F1向下复制。
以上都是在Sheet2中操作的，下面回到Sheet1：
在F2中写上：
=Sheet2!F1
向下复制即可。
这时你在Sheet1的F3中可以看到这个公式：
=Sheet2!F2
在Sheet1的F4中可以看到这个公式：
=Sheet2!F3
这些就是你要的结果。

回复：4楼
当然也可以直接在Sheet1中完成，不过我认为这样写过程更清晰一些。

相关系数的检验
   线性回归方程
回归方程的显著性检验
回归预测
   有兴趣帮忙解答的大神 欢迎加QQ939929200
   关于这方面 我是点都不懂

回复：7楼
读1楼的第5条没有？去统计吧发这样的问题。

回复：7楼
如果只是实际使用，我认为quotro pro是很不错的东东，我以前常用的。
以下电话是假的。

回复：2楼、4楼：
如果用另外一种方法（VBA），可以直接到向结果。
首先将原数据复制到Sheet3中，然后写入如下VBA程序：
Sub 第一行的值乘以相应的单元格的值后求和()
Sheet3.Activate
Range("A2:E4").Name = "MyName"
For Each cell In [Myname]
i = i + 1
If i Mod 5 = 1 Then
J = J + 1
Cells(J, 8) = cell * Range("A1")
End If
If i Mod 5 = 2 Then  
K = K + 1
Cells(K, 9) = cell * Range("B1")
End If
If i Mod 5 = 3 Then  
L = L + 1
Cells(L, 10) = cell * Range("C1")
End If
If i Mod 5 = 4 Then   
M = M + 1
Cells(M, 11) = cell * Range("D1")
End If
If i Mod 5 = 0 Then  
N = N + 1
Cells(N, 12) = cell * Range("E1")
End If
Next cell
Range("M1").Formula = "=sum(H1:L1)"
Range("M1").Select
Selection.Copy Range("M2:M3")
Range("M1:M3").Select
Selection.Copy
Selection.PasteSpecial xlPasteValues
Selection.Copy Range("F2:F4")
Range("H1:M3").Clear
End Sub
运行上面的程序，就可以直接得到结果。


感谢板主加精！
回复：10楼
“可以直接到向结果”
应该是：可以直接得到结果

你好    我想把表格中 其中相同的数据筛选出来  
年份     客户       数据
2009      张三       1000
2010     张三       1500
2009     李四        950
2009     王五       1000
2010     王五       300
就像这种 但整张表客户很多 数据也多    想筛选每两个相同名字的客户


楼主呢   很急

雪人大人要开第二高楼


回复：12楼
按客户排序不就出来了么？
点：开始\排序和筛选\自定义排序
在主要关键字里选客户，点“确定”就OK了。
用VBA也很容易实现，假设你的数据是排在Shhet1的A、B、C三列：
Sub 按客户排序()
     MaxRow = Range("A65536").End(xlUp).Row
     Sheet1.Sort.SortFields.Add Key:=Range("B2:B" & MaxRow)
     With Sheet1.Sort
         .SetRange Range("A1:C" & MaxRow)
         .Header = xlYes
         .Apply
     End With
End Sub

回复：12楼、16楼
如果姓名不会出现4个相同的，则这样来筛选出两个相同的用户：
Sub 选相同的客户() '不出现4个相同的
       Range("B2").Select
       Do While ActiveCell <> ""
       If ActiveCell = ActiveCell.Offset(1) Then
       I = I + 2
          ActiveCell.EntireRow.Copy Sheet2.Cells(I, 1)
          ActiveCell.Offset(1).EntireRow.Copy Sheet2.Cells(I + 1, 1)
          ActiveCell.Offset(2).Select
       Else
           ActiveCell.Offset(1).Select
       End If
       Loop
End Sub
如果会出现4个6个或更多成对出现的则加个判断后删除，不知你的表中是什么状况，没有看到你的说明。