当前位置: 代码迷 >> Office >> 帮忙实现Excel功能
  详细解决方案

帮忙实现Excel功能

热度:175   发布时间:2016-05-05 05:54:48.0
请教高手帮忙实现Excel功能
sheet1表中有产品A,B,C。。。。。,产品分为优和差两类,现在要根据sheet1表中的记录(如图1),用公式将差的产品在sheet2中自动列出来(如图2).








------解决方案--------------------

Sub main()
    Dim l As Long, i As Long, j As Long, c
    Sheet2.Activate
    Cells.ClearContents
    l = 1 'Sheet2的行计数
    With Sheet1
        For j = 2 To 3
            For i = 2 To .[A65530].End(xlUp).Row
                If Len(.Cells(i, j)) Then
                    For Each c In Split(.Cells(i, j), ",")
                        Cells(l, 1) = c '等级
                        Cells(l, 2) = .Cells(i, 1)  '日期
                        Cells(l, 3) = .Cells(1, j)  '优差
                        l = l + 1
                    Next c
                End If
            Next i
            l = l + 1
        Next j
    End With
End Sub
  相关解决方案
本站暂不开放注册!
内测阶段只得通过邀请码进行注册!
 
  • 最近登录:Fri Jan 20 09:39:37 CST 2017
  • 最近登录:Fri Jan 20 09:39:37 CST 2017
  • 最近登录:Fri Jan 20 09:39:37 CST 2017
  • 最近登录:Fri Jan 20 09:39:37 CST 2017
  • 最近登录:Fri Jan 20 09:39:37 CST 2017