数据重新排列，并互换位置

jackyava · 发表于 2018-8-27 10:23

本帖最后由 jackyava 于 2018-8-27 12:15 编辑

一：B,C,D列为N个手机卖场三星，苹果，小米三种手机的上下半年的销量，
将每家卖场的销售量在H:J列以及L:N列重新排列.
二：将三星和小米的数据互换位置.

附件

一把小刀闯天下 · 发表于 2018-8-27 10:50

Option Explicit

Sub test()
  Dim arr, i, m, n
  arr = Range("b3:d" & Cells(Rows.Count, "b").End(xlUp).Row)
  ReDim brr(UBound(arr, 1), 1 To 7)
  For i = 1 To UBound(arr, 1)
If Len(arr(i, 1)) Then n = n + 1
If n = 2 Then
   m = m + 1
   brr(m, 1) = arr(i, 3): brr(m, 2) = arr(i, 2): brr(m, 3) = arr(i, 1)
End If
If n = 3 Then
   brr(m, 5) = arr(i, 3): brr(m, 6) = arr(i, 2): brr(m, 7) = arr(i, 1)
   n = 0
End If
  Next
  brr(0, 1) = "三星": brr(0, 2) = "苹果": brr(0, 3) = "小米"
  brr(0, 5) = "三星": brr(0, 6) = "苹果": brr(0, 7) = "小米"
  With [h3]
.Resize(Rows.Count - 2, UBound(brr, 2)) = vbNullString
If m > 0 Then .Resize(m + 1, UBound(brr, 2)) = brr
  End With
End Sub

yfan17 · 发表于 2018-8-27 10:59

H4

=OFFSET($B$4,4*(ROW($A1)-1),3-COLUMN(A$1))

复制代码

L4

=OFFSET($B$4,4*(ROW($A1)-1)+1,3-COLUMN(A$1))

复制代码

统一格式删除第八行后输入公式，右拉，下拉。

jackyava · 发表于 2018-8-27 11:32

一把小刀闯天下发表于 2018-8-27 10:50
Option Explicit

Sub test()

老师，能帮我看下这个帖子14楼的附件么，谢谢
http://club.excelhome.net/forum. ... p;page=2#pid9634794

jackyava · 发表于 2018-8-27 12:12

一把小刀闯天下发表于 2018-8-27 10:50
Option Explicit

Sub test()

数据为空的时候，会出现错误，老师请修正一下，谢谢

一把小刀闯天下 · 发表于 2018-8-27 12:25

jackyava 发表于 2018-8-27 12:12
数据为空的时候，会出现错误，老师请修正一下，谢谢

这种代码不会出错的，因为step 为1，，，

可以上附件

jackyava · 发表于 2018-8-27 12:32

一把小刀闯天下发表于 2018-8-27 12:25
这种代码不会出错的，因为step 为1，，，

可以上附件

数据按条件重新排列(出错).rar (7.84 KB, 下载次数: 3)

一把小刀闯天下 · 发表于 2018-8-27 13:02

试了一下还是没有出错。wps2016专业版

因为你前面的附件中有效行之间的空行是不定的，所以我是按有效行来计算区域数据块的，每个区3行

但是你现在的附件中行是确定的，但该有的数据你没有。写代码需要规则，而你的规则是不确定的。于是我前面写的并不适合你现有的附件，不过不会出错，只是结果肯定不正确

可能你觉得这样玩很嗨，但我想不太会有人来帮你解决类似的问题的

jackyava · 发表于 2018-8-27 13:29

一把小刀闯天下发表于 2018-8-27 13:02
试了一下还是没有出错。wps2016专业版

因为你前面的附件中有效行之间的空行是不定的，所以我是按有效行 ...

有效行不固定，那是个疏忽，怎么可能用不固定的行数来用VBA呢
现在的问题是，只有标题，没数据的时候，会出现图片中的错误，老师能解决一下吗，谢谢

jackyava · 发表于 2018-8-27 13:37

一把小刀闯天下发表于 2018-8-27 13:02
试了一下还是没有出错。wps2016专业版

因为你前面的附件中有效行之间的空行是不定的，所以我是按有效行 ...

如果B:D列每个标题下，都有数据的话，那代码是不会出现错误的，现在的问题是，如果有的标题下数据为空，那代码会出错

就是发帖时匆忙，原附件第八行出现了错漏而已，怎么可能是在玩呢

		自动登录	找回密码
密码			免费注册

[已解决] 数据重新排列，并互换位置

评分

评分