Sub ttt()
Dim I As Integer
Dim icnt As Integer
Const NUMMAX = 256
For icnt = 6 To NUMMAX
If Worksheets("Sheet1").Cells(6, icnt).Value = "" Then
Exit For
End If
Next
For I = 1 To NUMMAX
Worksheets("Sheet1").Cells(5 + I, icnt).Value = Worksheets("Sheet3").Cells(I, 20).Value
Next
End Sub
--------------------------------------------------------------------------------------------------------------------
Sheet3的A20.B20.C20.D20.C20.E20.F20......写入Sheet1里必须在一列上..输入在哪一列上要看Sheet1 F6 有没有数据...
这里不是一列,是必须写在同一行上面吧。。。上面的程序贴到VBA模块里面运行一下就行了。