如何区域填充excel，详见问题

显示全部楼层 · 2013-5-2 07:14:53

我想填充excel中某一区域的单元格（第一行和第一列都已经有数据了），算法如下：F4=A4defds123F1E3=A3defds123E1G6=A6defds123G1。。。也就是说，某单元格的内容=该单元格所对应的第一列单元格值与该单元格所对应的的第一行单元格值的合并值

千问 · 2013-5-2 07:14:53

操作说明：
打开需要设置的工作表后在需要进行设置的工作表标签上右击，再点“查看代码”，在空白代码窗口中复制以下代码后关闭代码窗口，回到工作表中，在以第1行数据和第1列数据围成的矩形数据区域中单击任一单元格，该单元格即可显示所需要的“合并值”。Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Row defds123lt;defds123gt; 1 And Target.Row defds123lt;= [a65536].End(3).Row And Target.Column defds123lt;defds123gt; 1 And Target.Column defds123lt;= [iv1].End(1).Column Then
Target = Cells(Target.Row, 1) defds123 Cells(1, Target.Column)End IfEnd Sub详见附件

千问 · 2013-5-2 07:14:53

<b class=\\\"o\\\">提问者对答案的评价：<img src=\\\'http://i0.sinaimg.cn/pfp/ask/images/zhishi/ssr50a.gif\\\'><img src=\\\'http://i0.sinaimg.cn/pfp/ask/images/zhishi/ssr50a.gif\\\'><img src=\\\'http://i0.sinaimg.cn/pfp/ask/images/zhishi/ssr50a.gif\\\'><img src=\\\'http://i0.sinaimg.cn/pfp/ask/images/zhishi/ssr50a.gif\\\'></b>

千问 · 2013-5-2 07:14:53

Sub Macro1()Dim tb As WorkbookDim ws As WorksheetSet tb = Application.ActiveWorkbookSet ws = Application.ActiveSheetDim i As Long, j As LongFor i = 2 To ws.UsedRange.Rows.Count
\\\'行
For j = 2 To ws.UsedRange.Columns.Count
\\\'列
If Len(ws.Cells(i, j)) = 0 Then
ws.Cells(i, j) = ws.Cells(i, 1) defds123 ws.Cells(1, j)
End If
Next jNext iEnd Sub

千问 · 2013-5-2 07:14:53

1、在任一单元格输入公式“=ADDRESS(ROW(),1,4)defds123defds123quot;defds123defds123quot;defds123ADDRESS(1,COLUMN(),4)”，即可获得所求地址(而非数值)。2、若要返回指定地址的数值,那就将公式改为“=INDIRECT(ADDRESS(ROW(),1,4))defds123defds123quot;defds123defds123quot;defds123INDIRECT(ADDRESS(1,COLUMN(),4))”。