for k = k + 1 运行结果是隔行运算？

daweiDZ

Sub yymm()
Dim k
For k = 1 To Sheet2.[i65536].End(xlUp).Row
            k = k + 1
             Sheet2.Cells(k, 13) = Year(Sheet2.Cells(k, 9)) & Month(Sheet2.Cells(k, 9))
        Next k
End Sub

运行后确实各一方提取日期并填入。怎么会这样？谢谢


17.9.28                g已完成                20179
17.9.28                g已完成               
17.10.1              下                        201710
17.10.1              下                        
17.10.1                g已完成                201710
17.10.1                g已完成               
17.10.9                g已完成                201710
附件中的sheet（wt)，模块2. 谢谢版主提醒

excel玉米

把k=k+1去掉试试。for 语句是一个循环，有k=k+1这句就会造成跳行

不知道为什么

k=k+1 这里有什么意义？你用 K 做步进循环了，每次再加1 当让不是你想要的结果。可以直接删除。如果需要累加，可以用别的变量替代。

lsc900707

没有附件的提问很难获得满意的解答。

daweiDZ

lsc900707 发表于 2018-6-25 20:09
没有附件的提问很难获得满意的解答。

上传了，谢谢提醒

YZC51

请参考
Sub yymm()
    Dim k
    For k = 2 To Sheet2.[i65536].End(xlUp).Row
        Sheet2.Cells(k, 13) = Format(Sheet2.Cells(k, 9), "yyyymm")
    Next k
End Sub

zopey

前面有k=k+1, 执行到 Next k 语句时 ，隐藏了 k=k+1。

按你这样写 一个循环下来 k 加了2次  1。

daweiDZ

YZC51 发表于 2018-6-26 12:07
请参考
Sub yymm()
    Dim k

我有个透视表引用这个日期（年月），用yymm实际是具体的年月日，透视表还要创建分组。所以采用提取年月

daweiDZ

zopey 发表于 2018-6-26 14:32
前面有k=k+1, 执行到 Next k 语句时 ，隐藏了 k=k+1。

按你这样写 一个循环下来 k 加了2次  1。

谢谢指点；

       For k = 2 To Sheet2.[a65536].End(xlUp).Row
   
                    Sheet2.Cells(k, 13) = Year(Sheet2.Cells(k, 9)) & "-" & Month(Sheet2.Cells(k, 9))
        Next
      

得出如下结果：
2018-6
2018-6