在你要得到1的单元格输入如下公式
=IF(MOD(ROW(A1),2),INT(ROW(A1)/2)*6+COLUMN(A1),INT(ROW(A1)/2)*6-COLUMN(A1)+1)
公式右拉三列,下拉四行得到你要的结果
选择A1:C4单元格
输入
={1,2,3;6,5,4;7,8,9;12,11,10}
按SHIFT+CTRL+ENTER三键
VB参考:
Range("A3:C3").Select
ActiveCell.FormulaR1C1 = "1"
Range("A3:C3").Select
Range("B3").Activate
ActiveCell.FormulaR1C1 = "2"
Range("A3:C3").Select
Range("C3").Activate
ActiveCell.FormulaR1C1 = "3"
Range("A3:C3").Select
选中A1:C4,输入
=IF(MOD(ROW(),2),COLUMN(),4-COLUMN())+ROW()*3-3
同时按下CTRL+SHIFT+回车,输入多单元格数组公式,试试。
也可以只输入在A1,用右拉,下拉的。