小弟急求：在excel里编写代码：实现三个不同矩阵相乘

在EXCEL中用MMULT可以实现三个以上矩阵相乘吗~

第一步，我们在空白输入公式，如图F2单元格输入公式“="@"&A2&"*"&C2",把公式拉下来。

第二步，选择F列整列——编辑——复制——选择性粘贴——复制——数值。

第三步，在D2单元格输入公式"=F2",把公式拉下来。

第四步，选择D列整列——编辑——复制——选择性粘贴——复制——数值。

第五步，选择D列整列——编辑——查找（CTRL+F)——替换——查找内容输入"@"——替换为"="，这样D列里显示的就是用A列和C列两列的两个数据相乘的啦。

打开Excel，将需要相乘的两个矩阵数据全部写在Excel中，比如A1:C2区域写第一个矩阵，E1:F3区域写第二个矩阵：

然后，在任间单元格插入公式=MMULT(A1:C2,E1:F3)，回车确定：

我们知道，一个m×n的矩阵a(m,n)左乘一个n×p的矩阵b(n,p)，会得到一个m×p的矩阵c(m,p)，那么，我们例子中是A（2，3）XB（3，2），得到一个矩阵应该是C（2，2），即2行2列的矩阵，那么，我们以输入公式的单元格为基准，选中4个单元格：

选中后，我们按键盘的F2功能键，激活公式编辑：

然后按键盘Ctrl+Shift+Enter组合键，将该公式变为数组公式，即得最终两矩阵相乘的结果（咱们回过头看一下该公式，自动加了一对大括号"{}",这就是Excel按Ctrl+Shift+Enter组合键后数组公式的标志，记住，数组公式的大括号不能手动输入，只能按组合键生成，他如同注释一样只是一个标记，给用户说明这是一个数组公式而已）：

excel 内置函数： MMULT
全部显示
全部隐藏
返回两个数组的矩阵乘积。结果矩阵的行数与 array1 的行数相同，矩阵的列数与 array2 的列数相同。

语法

MMULT(array1,array2)

Array1, array2 是要进行矩阵乘法运算的两个数组。

说明

Array1 的列数必须与 array2 的行数相同，而且两个数组中都只能包含数值。

Array1 和 array2 可以是单元格区域、数组常量或引用。
在以下情况下，MMULT 返回错误值 #VALUE!：
任意单元格为空或包含文字。
array1 的列数与 array2 的行数不相等。
两个数组 b 和 c 的矩阵乘积 a 为：

其中 i 为行数，j 为列数。

对于返回结果为数组的公式，必须以数组公式的形式输入。
示例 1

如果将示例复制到一个空白工作表中，可能会更易于理解。

如何复制示例

创建一个空白工作簿或工作表。
选择“帮助”主题中的示例。
注释 请不要选择行或列标题。

从“帮助”中选择示例
按 Ctrl+C。
在工作表中，选择单元格 A1，然后按 Ctrl+V。
若要在查看结果和查看返回结果的公式之间切换，请按 Ctrl+`（重音符），或在“公式”选项卡上，在“公式审核”组中，单击“显示公式”按钮。

1
2
3
4
5
6
A B
Array 1 Array 1
1 3
7 2
Array 2 Array 2
2 0
0 2
公式 公式
=MMULT(A2:B3,A5:B6)

注释 示例中的公式必须以数组公式输入。将示例复制到空白工作表后，请选择以公式单元格开始的数据区域 A8:B9。按 F2，再按 Ctrl+Shift+Enter。如果公式不是以数组公式输入，则返回单个结果值 2。

示例 2

如果将示例复制到一个空白工作表中，可能会更易于理解。

如何复制示例

创建一个空白工作簿或工作表。
选择“帮助”主题中的示例。
注释 请不要选择行或列标题。

从“帮助”中选择示例
按 Ctrl+C。
在工作表中，选择单元格 A1，然后按 Ctrl+V。
若要在查看结果和查看返回结果的公式之间切换，请按 Ctrl+`（重音符），或在“公式”选项卡上，在“公式审核”组中，单击“显示公式”按钮。

1
2
3
4
5
6
A B
Array 1 Array 1
3 0
2 0
Array 2 Array 2
2 0
0 2
公式 公式
=MMULT(A2:B3,A5:B6)

注释 示例中的公式必须以数组公式输入。将示例复制到空白工作表后，请选择以公式单元格开始的数据区域 A8:B9。按 F2，再按 Ctrl+Shift+Enter。如果公式不以数组公式的形式输入，则结果为单个结果值 6。

两两分开相乘，注意矩阵行列。。。。。。。。

请详细你的问题。三个不同的矩阵。能否说的具体点。
或者HI我。

---

宜秀区17222539602： excel里VBA编写代码,急急急! - ？
诺缪普润： Sub oldyuan() Dim Dic As Object, i&, k&, Arr, ArrOut() Arr = Range(＂A2:D＂ & Cells(Rows.Count, 4).End(3).Row).Value ReDim ArrOut(1 To UBound(Arr), 1 To 4) Set Dic = CreateObject(＂Scripting.Dictionary＂) For i = 1 To UBound(Arr) If Not Dic...

宜秀区17222539602： 小弟急需用excel制作简单的成绩查询系统.急求啊？
诺缪普润： 将excel导入到access里,然后做个查询页面和结果页面就可以了!就几句代码而已,连接数据库,然后查询关键字就行了!对了,忘了问,你是要在网页上公开让别人查,还是你自己查!如果是你自己查就在excel里就行了!代码如下:查询页...

宜秀区17222539602： 急求EXCEL代码,哪位高手能帮忙编辑下,如下图 例如:如果C466空白时,G466=G466& G467,G467自动消除, - ？
诺缪普润： 其实不用代码也可以实现的!1. 在最后加个辅助列,假如J列,由J3开始写公式=IF(C3=＂＂,＂＂,IF(C4=＂＂,G3&G4,G3)); 2. 然后复制J列的J3至表底,选择性粘贴(数值)至G3; 3. 然后筛选C列的空白行,把筛选出来的结果删除掉即可!这个操作有一个限制是C列不能有连续2行都是空白!如果发现有连续2行空白则不适用了!

宜秀区17222539602： excel表格如何用编码代替所需要的内容!!!急求!! - ？
诺缪普润： 代码如下:Private sub worksheet_change(ByVal Target as range)r=sheets(＂sheet1＂).range(＂A65536＂).end(3).row if not application.intersect(Target,range(＂A:F＂)) Is nothing then for i = 1 to r if target.value = i then target.value=sheets(＂...

宜秀区17222539602： 如何在EXCEL表里执行一段代码 是打开宏吗?急求 谢谢 - ？
诺缪普润： 是的,打开宏编辑器,建一个模块,把代码拷进去,但代码不能有错,不然,你也运行不了.代码拷进去了,要有个宏名字,在EXCEL表中建立一个按纽,可以随便用一个图做按纽,画一个圆或其它,鼠标右键在图上,指定宏,把你起好名字的宏点上就行了,然后把鼠标移开,再点那个图,就能运行代码了.

宜秀区17222539602： 急求在EXCEL实现某字段自动筛选统计的宏代码,谢谢拉!!!! - ？
诺缪普润： 增加一张表命名为＂查询表＂,原表命名为＂统计表＂,将按钮放在＂查询表中＂,在＂查询＂表的第三行输入字段名称(列标题).并在＂查询表中＂将以下的宏指定给按钮.Sub 查询() Dim i As Integer Dim n As String lastrow = Worksheets...

宜秀区17222539602： 急求:做一个excel VBA 代码,纠结快一个星期了 本人 SQL 菜鸟 - ？
诺缪普润： 一定要VBA吗?你可以从菜单:数据-其他数据源-SQL server 服务器名:ERZ8XX4LD427MFV 使用以下用户名:sa 密码:123下一步-选定数据库sikaibo2010_dbzwj,选定表Rs801入库明细-下一步-完成-在sheet1指定起始单元格,确认以后出来...

宜秀区17222539602： 求EXCEL写个公式,特急!!! - ？
诺缪普润： 假设数据在A1:C3中,选中A1:C3,格式,条件格式,公式,框中输入=countif($A$1:$C$3,A1)>1下面挑选一种条件成立之后的填充颜色,确定,就行了,注意其中单元格地址前面的符号,不要...

宜秀区17222539602： 急!!!excel vba 代码求助 - ？
诺缪普润： Sub lookup_x()For i = 2 To [a65536].End(3).Row For k = 2 To [f65536].End(3).Row If Cells(i, 1) = Cells(k, 6) Then Cells(k, 7) = Cells(i, 2) NextNextEnd Sub

宜秀区17222539602： 求教EXCEL如何编写,急! - ？
诺缪普润： =if(value(left(a1,1))=1,a1,＂not＂)