VBA如何改写逆排依据单元格P60 从下往上排

laoau138 · 发表于 2017-1-12 12:32

sandorn · 发表于 2017-1-12 13:15

本帖最后由 sandorn 于 2017-1-12 13:21 编辑

根据你的意思，重新写了一下。

<blockquote>Sub 顺排()

复制代码

见附件。

sandorn · 发表于 2017-1-12 13:21

Sub 顺排()
Dim 目标数组(1 To 60, 1 To 5)
原始数组 = [a1:E60]
[h2:l60].ClearContents
For 原始行 = 1 To 60
If [h1] = 原始数组(原始行, 1) Then Exit For
Next
For 目标行 = 1 To 60
For 列 = 1 To 5
目标数组(目标行, 列) = 原始数组(原始行, 列)
Next
原始行 = 原始行 + 7
If 原始行 > 60 Then 原始行 = 原始行 Mod 60
Next
[h1:l60] = 目标数组
End Sub
Sub 逆排()
Dim 目标数组(1 To 60, 1 To 5)
原始数组 = [p1:t60]
[p1:t60].ClearContents
For 原始行 = 1 To 60
If [h1] = 原始数组(原始行, 1) Then Exit For
Next
For 目标行 = 60 To 1 Step -1
For 列 = 1 To 5
目标数组(目标行, 列) = 原始数组(原始行, 列)
Next
原始行 = 原始行 + 7
If 原始行 > 60 Then 原始行 = 原始行 Mod 60
Next
[p1:t60] = 目标数组
End Sub

复制代码

laoau138 · 发表于 2017-1-12 13:24

sandorn 发表于 2017-1-12 13:15
根据你的意思，重新写了一下。
见附件。

你这个不对

第一:请用英文写，不习惯看中文
第二:你这个顺排，逆排也错误

顺排，H1可以变动，手动输入A列60甲子任意一个名字，然后按规律排列
   H1不一定等于"甲子"

逆排，P60可以变动，手动输入A列60甲子任意一个名字，然后按规律排列
   P60不一定等于"甲子"

当P60输入"甲子",然后按"甲子"顺序逆排，
当P60输入"丙寅",然后按"丙寅"顺序逆排

sandorn · 发表于 2017-1-12 14:06

laoau138 · 发表于 2017-1-12 17:29

sandorn 发表于 2017-1-12 14:06

VBA不用A列辅助编号改写逆顺行数小于60先逆行到1 再从60 59逆下去

http://www.excelpx.com/thread-427134-1-1.html

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

[VBA] VBA如何改写逆排依据单元格P60 从下往上排

本帖子中包含更多资源

本帖子中包含更多资源

评分

评分

本帖子中包含更多资源

评分

[VBA] VBA如何改写逆排 依据单元格P60 从下往上排

本帖子中包含更多资源

本帖子中包含更多资源

评分

评分

本帖子中包含更多资源

评分

[VBA] VBA如何改写逆排依据单元格P60 从下往上排