vba 填充空格

显示全部楼层 · 2009-6-9 00:01:47

没看懂还是没说清楚,这两列的相对位置是不是不变?(一直为相邻列吗?)是不是可以这样理解,如果当前单元格的左一格为空,就取其左一格的上一格,然后再上一格,直到有值为止?如果是这样的话很简单.等下发上来 '很有趣的问题Function ci(ColFrom As Range) As String '两列不相邻情况,输入另一列任一单元格,如=ci(A1)Dim ColofLeftCell As IntegerDim RowofLeftCell As IntegerDim i As IntegerColofLeftCell = ColFrom.ColumnRowofLeftCell = Applicatio...

千问 · 2009-6-9 00:01:47

Function ci(startCell As Range) As String
Const REPEAT_TIMES = 3, SOURCE_NUM = 3'根据需要修改这些常量：重复次数和源数据的数目
Dim i, j As Integer
For i = 0 To (SOURCE_NUM * REPEAT...