VBA循环问题困扰

madmanv587

本人是一名天猫运营，迷上用VBA处理数据问题，刚学习VBA不久，苦于没有良师指引，希望各位大神能多多指导【想要实现的效果】：当L列Y列AL列以此类推14列（间距13）有数据时，前一列的“观测天数列”输出数字1,2,3等，目的是统计有数据的第几天天数，因为“出价列”的数据是随机有或无的，所以循环想破头好像也没办法，有大神愿意指导下嘛~


【代码如下】：
Sub 新调用()
Dim 最后一行 As Integer
Dim 间隔行 As Integer
Dim b As Integer
最后一行 = Range("f3").End(xlDown).Row
间隔列 = 13
b = -1
d = 0
For 日期列 = 11 To 180 Step 间隔列
    b = b + 1
    Cells(1, 日期列) = Range("F3") + b
    For 每一行 = 3 To 最后一行
        If Cells(每一行, 日期列 + 1) <> "" Then
        d = d + 1
        Cells(每一行, 日期列) = 1
        End If
Next 每一行
Next 日期列
End Sub

iwangyi

Sub 新调用()
nrow = [f65536].End(xlDown).Row
ncol = [iv1].End(1).Column
For y = 11 To ncol Step 13
     b = b + 1
     Cells(1, "f") = Range("F3") + b
     For x = 3 To nrow
         If Cells(x, y + 1) <> "" Then
         d = d + 1
         Cells(x, y) = 1
         End If
Next x
Next y
End Sub

iwangyi

不知道楼主要做什么，只是把楼主的汉字进行了替换。呵呵

madmanv587

iwangyi 发表于 2018-9-14 17:45
不知道楼主要做什么，只是把楼主的汉字进行了替换。呵呵

可能表达过于简洁，举个例子
第一种情况：（连续）
L列不为空，则K列输出1（第一天观测的意思）
Y列不为空，则X列输出2（第二天观测的意思）
AL列不为空，则AK列输出3（第三天观测的意思）
。。。
不是整列输出数字，而根据右边的单元是否为空，单个单元格输出
第二种情况：（不连续）
L列不为空，则K列输出1（第一天观测的意思）
AL列不为空，则AK列输出2（第二天观测的意思）
。。。
不连续是常态，也是想要实现的效果，有数据才输出1，没数据的为空，后面往上叠加这样

madmanv587

问题已解决