EXCEL 公式批量生成的问题

来源：百度知道 编辑：UC知道 时间：2024/05/16 03:33:11
在sheet2中A4=IF(Sheet1!B$21=2,1,0)，A1，A2，A3为空格，A5==IF(Sheet1!B$21=1,1,0)，A6=0，从A1到A6为一组数据，从A7到A12为第二组，同样的在第二组第四个单元格，即A10处，我想令A10=IF(Sheet1!C$21=2,1,0)，接着A11=(Sheet1!C$21=1,1,0)。往下类推，一共有100组左右，如果一个一个输入太慢，但是这个公式往下无法拖拽。录入数据急用，请哪位前辈帮帮忙，谢谢。
请说的详细一些好吗？谢谢！

没想明白怎么录制啊，引用的列数是改变的，怎么弄？

录制宏,使用宏可以快速的进行重复的操作.
如果你懂一点VB编码的话,也可以在EXCEL里面写一个函数运行你录制的宏,要怎么运行都可以,提示你按ALT+F11可以查看宏的代码,也可以在里面编码.

增加补充:
先做好A1到A6的公式,选择A1到A6,移动鼠标到选择块的右下角变成加号后向右拖动100组左右,按ALT+F11,在代码里输入:
Sub Macro4()
For i = 2 To 100 '100是可以改的组数
Range(Cells(1, i), Cells(1, i).Offset(6, 0)).Select
Selection.Cut Destination:=Range(Cells(1 + i * 6, 1), Cells(1 + i * 6, 1).Offset(6, 0))
Next
End Sub
按F5运行就可以啦.

选下套用公式看看！