[已解决]请老师们帮我解决下这个问题，用公式、函数、VBA都可以

yjwdjfqb

请老师们帮我解决下这个问题，用公式、函数、VBA都可以
如图：
谢谢老师们了！

Excel根据某列，生成对应的数据.rar (6.11 KB, 下载次数: 4)

2016-12-11 12:03 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

小新De和尚头

2016-12-11 12:47

1. =IF(A1="",OFFSET(A1,-1,1),A1)

复制代码

公式下拉

跳转到最佳答案楼层

雨吧

1. Sub YuBa()
   
2.     Dim i%, ar, br()
   
3.     [g7:g26] = ""
   
4.     ar = Range("f7:f" & [f65536].End(3).Row - 1)
   
5.     ReDim br(1 To UBound(ar), 1 To 1)
   
6.     br(1, 1) = ar(1, 1)
   
7.     For i = 2 To UBound(ar)
   
8.         If ar(i, 1) = "" Then ar(i, 1) = ar(i - 1, 1)
   
9.         br(i, 1) = ar(i, 1)
   
10.     Next
    
11.     [g7:g26] = ""
    
12.     [g7].Resize(i - 1) = br
    
13. End Sub

复制代码

Excel根据某列，生成对应的数据.rar (10.81 KB, 下载次数: 0)

2016-12-11 12:41 上传

点击文件名下载附件

小新De和尚头

1. =IF(A1="",OFFSET(A1,-1,1),A1)

复制代码

公式下拉

苏子龙

1. =IF(F7<>"",F7,G6)

复制代码

if函数就能完成

yjwdjfqb

谢谢各位老师了，都很好用！