[已解决]想实现B1-B24，C1-C24全部等于A1-A24的出生年月日

czl103

大虾帮忙看看，如何实现C1-C24都取出A1-A24的出生年月日？
感觉FOR NEXT用得不对
Sub 年月日()
  Dim HpNo As String, tdNo As String, birth As String, i As Integer
  For i = 1 To 24
i = i + 1
   HpNo = [a1]
   tdNo = Mid(HpNo, 7, 8)
   [b1] = tdNo
   [c1] = CDate(Format(tdNo, "0000-00-00"))
Next i
End Sub

最佳答案

月排行榜 / 总排行榜

苏子龙

2017-6-30 10:36

Sub 年月日()
  Dim HpNo As String, tdNo As String, birth As String, i As Integer
  For i = 1 To 24

   HpNo = cells(i,1)
   tdNo = Mid(HpNo, 7, 8)
   cells(i,2) = tdNo
   cells(i,3)= CDate(Format(tdNo, "0000-00-00"))
Next i
end sub

跳转到最佳答案楼层

czl103

运行现在的代码，结果是只有B1，C1能得到相关结果，后面的23行都没有动静。

苏子龙

i=i+1用不到的啊！

czl103

苏子龙 发表于 2017-6-30 10:34
i=i+1用不到的啊！

嗯 去掉i=i+1这行了 还是一样 只出现了第一行的结果

苏子龙

Sub 年月日()
  Dim HpNo As String, tdNo As String, birth As String, i As Integer
  For i = 1 To 24

   HpNo = cells(i,1)
   tdNo = Mid(HpNo, 7, 8)
   cells(i,2) = tdNo
   cells(i,3)= CDate(Format(tdNo, "0000-00-00"))
Next i
end sub

czl103

苏子龙 发表于 2017-6-30 10:36
Sub 年月日()
  Dim HpNo As String, tdNo As String, birth As String, i As Integer
  For i = 1 To 24 ...

明白了 [A1]无法实现连续抓取效果 谢了[em23]