新人求助代码

igigmj

          老师好，求助的问题对于老师们说可能很简单，但对于新手来说却很难。先谢谢您的帮助

liulang0808

建议楼主结合附件举例说明下原始数据及模拟结果

igigmj

已经发了附件求助1：想达到的效果

igigmj

liulang0808 发表于 2018-9-3 20:02
建议楼主结合附件举例说明下原始数据及模拟结果

谢谢老师！原始数据是积累的，附件里“D”列至“H”的数据是为了简便的表述而填充的。我想要的结果:

igigmj

谢谢老师！ 求助1.rar (11.92 KB, 下载次数: 5)

2018-9-3 20:34 上传

点击文件名下载附件

liulang0808

igigmj 发表于 2018-9-3 20:28
谢谢老师！原始数据是积累的，附件里“D”列至“H”的数据是为了简便的表述而填充的。我想要的结果:
20 ...

就是出现T就向T以下的空白单元格添加T直到F位置停止呗？

igigmj

如果C列没有F出现，字母T一直填充到与B列编码相对应的最后一行，

igigmj

老师如果今晚有事要处理了，就明天回复我吧。今天麻烦您啦，我今天在EH老掉线，刷新一次挺长时间，抱歉啦。谢谢！

一把小刀闯天下

'猜一个

Option Explicit

Sub test()
  Dim arr, i, j, k, kk
  arr = [a1].CurrentRegion.Offset(1).Value
  For i = 1 To UBound(arr, 1) - 1
    For j = i To UBound(arr, 1) - 1
      If arr(j, 2) <> arr(j + 1, 2) Then
        For k = i To j
          If arr(k, 3) <> "F" Then
            arr(k, 3) = "T"
          Else
            For kk = k + 1 To j: arr(kk, 3) = vbNullString: Next
            Exit For
          End If
        Next
        i = j: Exit For
      End If
  Next j, i
  [a2].Resize(UBound(arr, 1) - 1, UBound(arr, 2)) = arr
End Sub

igigmj

一把小刀闯天下 发表于 2018-9-4 16:37
'猜一个

Option Explicit

谢谢！太感谢啦！祝你好运！！！达到了效果 ！
但是“T”有的向上填充了，能不能麻烦您再修改一下，“T”只能向下填充不能向上，否则填充的位置就不与B列编码对应了。或者说字母“T”的位置是相对固定，只能向下。我这样表述不知道自己说明白了没。感谢！