返回一列中第一个非空单元格的标题并且不能用数组公式

andy_wang123

用VBA就涉及到宏，用宏就得编程，所以说尽量不用 :)

你也可以学习下VBA的，不难。这个小程序中核心的只是用到do while loop语句。。。

joey009

andy_wang123 发表于 2017-3-27 22:19
用VBA就涉及到宏，用宏就得编程，所以说尽量不用 :)

你也可以学习下VBA的，不难。这个小程序中核心的只 ...

嗯，这倒是，不过一听VB这两个字母，就已经怵了，我是做财务的，这个离我太远了。真学VB，即使有幸遇到名师带，没有一段时间全身心的投入估计够呛能学会，我还是算了。。。另外，能再麻烦一下吗？我改了一下sheet 1中表格的位置，您能受累帮我再改一下对应新格式的VB程序吗？让我体会一下，这个do while的用法，因为的实际是要用这个VB算一个很大的固定资产折旧表的，这个入职表只是个能说清楚的小案例。谢谢

andy_wang123

我也是做财务的。。。

我把关键地方的注释标出来了，你可以尝试自己改一下，很容易的。。。

Private Sub CommandButton1_Click()
    Dim I As Integer
    I = 1
    Do While Cells(5 + I, 5).Value <> ""          人名是从第六行，在第五列，开始。这个do while 一行一行的判断是否读到最后一个人名了。
        j = 1
        Do While Cells(5 + I, 5 + j).Value = ""    数据是从第六行，从第六列，开始。这个do while 一列一列的判断是否读到第一个有数据的单元格了（日期）。
            j = j + 1
        Loop
    Cells(5 + I, 3).Value = Cells(5, 5 + j).Value  找到了满足条件的单元格就在第三列把日期显示出来。
    I = I + 1
    Loop
End Sub

joey009

andy_wang123 发表于 2017-3-28 07:15
我也是做财务的。。。

我把关键地方的注释标出来了，你可以尝试自己改一下，很容易的。。。

真的呀！太巧了。。。，谢谢了热心的同行，一会要好好研究一下。