如何将一组数列根据区分正数值和负数值 在另一个SHEET2中循环列出来

czyjikemn

表达不是很清楚  看附件  A1列为姓名  B2列为亏盈值   现想将 B2列为正数的重新排成一列   负数的重新一列  A1列的姓名跟着B2列一起移动 最好是从SHEET1 移到SHEET2去   刚刚接触VBA 求各位老师赐教 谢谢

一把小刀闯天下

'自己修改

Option Explicit

Sub test()
  Dim arr, n(1), i
  arr = [a1].CurrentRegion
  ReDim brr(1 To UBound(arr, 1), 1 To 5)
  For i = 1 To UBound(arr, 1)
    If arr(i, 2) >= 0 Then
      n(0) = n(0) + 1
      brr(n(0), 1) = arr(i, 1): brr(n(0), 2) = arr(i, 2)
    Else
      n(1) = n(1) + 1
      brr(n(1), 4) = arr(i, 1): brr(n(1), 5) = arr(i, 2)
    End If
  Next
  [d1].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
End Sub

kuangben8

1. =IFERROR(IF(1,OFFSET($A$1:$B$1,SMALL(IF($B$1:$B$6>0,ROW($B$1:$B$6)),ROW(A1))-1,,)),"")

复制代码

1. =IFERROR(IF(1,OFFSET($A$1:$B$1,SMALL(IF($B$1:$B$6<0,ROW($B$1:$B$6)),ROW(A1))-1,,)),"")

复制代码

czyjikemn

一把小刀闯天下 发表于 2018-8-9 12:00
'自己修改

Option Explicit

老师 加下QQ  1026009394  找您有重谢

一把小刀闯天下

czyjikemn 发表于 2018-8-9 19:26
老师 加下QQ  1026009394  找您有重谢

可以把问题放上来给你看看

我学VBA从没花过一毛钱，所有资料都是网上免费下载的。所以别人的VBA问题如果我能解决得了的肯定不会收费的

其实我来这论坛就是为了学VBA，只是装胖子有点象而已，哈哈哈

czyjikemn

一把小刀闯天下 发表于 2018-8-9 19:58
可以把问题放上来给你看看

我学VBA从没花过一毛钱，所有资料都是网上免费下载的。所以别人的VBA问题如 ...

里面细节好多不懂  我就学了点皮毛 还恳请老师能加下好友给我详细解答下 谢谢了