隔列填写单元格

春日秋水 · 发表于 2017-3-25 20:20

A、C、E等单数列的行内容，填写B1、D1、F1等偶数列第一行内容，列数不定，

外购件.rar (6.89 KB, 下载次数: 5)

gykg-excel · 发表于 2017-3-25 21:03

=IF(MOD(COLUMN(),2)=0,OFFSET($A$1,1,COLUMN(A1)*1-1),"")

lsc900707 · 发表于 2017-3-25 22:25

Sub lsc()
For j = 2 To ActiveSheet.UsedRange.Columns.Count Step 2
Cells(1, j) = Cells(2, j - 1)
Next
End Sub

lsc900707 · 发表于 2017-3-25 22:26

gykg-excel 发表于 2017-3-25 21:03
=IF(MOD(COLUMN(),2)=0,OFFSET($A$1,1,COLUMN(A1)*1-1),"")

也可以这样：
Sub lsc()
For j = 2 To ActiveSheet.UsedRange.Columns.Count Step 2
Cells(1, j) = Cells(1, j ).offset(1,-1)
Next
End Sub

春日秋水 · 发表于 2017-3-26 13:03

此程序只能填写第二行，如果数据有多行，则不行

lsc900707 · 发表于 2017-3-26 14:38

春日秋水发表于 2017-3-26 13:03
此程序只能填写第二行，如果数据有多行，则不行

多行内容怎么显示，你又不说明，又没模拟结果>>>>>>>>>

		自动登录	找回密码
密码			免费注册

[求助] 隔列填写单元格