马老四-
在这个目录C:Program FilesMATLABR2009a下建一个名为Area.xls的表格，关闭。
注意一定要让扩展名显示 然后再命令窗口运行
header=cell(1,2);
header{1,1}="filename";header{1,2}="Lissajous figure Area";
xlswrite("C:Program FilesMATLABR2009aArea.xls",header,"A","A1:B1");
Area1=0;ki=1
for i=1:5
Area1=Area1+i;ki=ki+1;
cellnames=["A",num2str(ki),":B",num2str(ki)]
tileH=["c25",num2str(ki)];
data{1,1}=tileH;data{1,2}=Area1;
xlswrite("C:Program FilesMATLABR2009aArea.xls",data,"A",cellnames);
end
瑞瑞爱吃桃-
你可以每次循环把这些数据先放到一个矩阵里 然后一起写入xls中，xlswrite（Data，‘.xls"，‘A1：B2"）；这里A1:B2就是制定区域
余辉-
用EXCEL中的VBA可以实现
Sub CzName()
Dim XlSheet As Worksheet
Dim MCol As Integer, MRow As Integer
Dim MenName As String, QzName As String
Set XlSheet = ActiveSheet "定义当前工作表为活动工作表
"查找名字所在列号，并选中该字段
For Each cel In XlSheet.UsedRange.Rows(1).Cells
If cel.Value = "名字" Then
MCol = cel.Column
XlSheet.Rows(1).Columns(MCol).Select
End If
Next
"弹出对话框输入要查找的名字
MenName = InputBox("请输入您要查找的名字：", , "")
For Each sht In XlSheet.UsedRange.Columns(MCol).Cells
QzName = sht.Value
If QzName = MenName Then
MRow = sht.Row
XlSheet.Rows(MRow).Columns(MCol).Select
End If
Next
"查找不以输入信息时系统自动增加一行将输入信息赋值给单元格
If ActiveCell.Value <> MenName Then
XlSheet.Cells(XlSheet.UsedRange.Rows.Count + 1, MCol).Value = MenName
End If
End Sub
LuckySXyd-
按说是可以的，你把数据发过来，我写个程序。