单元格复制粘贴

guzhen9315

注：你的 [AX1]=1
你要改成： [AX1]=“01”


Public Arr(), HH, BBB, LL
Sub 矩形8_单击()
    BBB = [AX1]
    LL = 49  'AW列=49列
    For ii = 3 To 6
        Arr = Range(Cells(ii, LL + 1), Cells(ii, LL + 33)) '"L" & ii & ":AR" & ii)
        Range(Cells(ii + 5, LL + 1), Cells(ii + 5, LL + 33)).Clear
        HH = ii + 5
        For i = 1 To 33
            If BBB = Arr(1, i) Then
                For j = 1 + LL To 34 + LL - i
                    Cells(HH, j) = Cells(ii, i + j - 1)
                Next j
            End If
        Next i
    Next ii
End Sub

guzhen9315

啊呀，你的“向左”指定宏指向了 “矩形7_单击()”了。
害我试了很久。

Public Arr(), HH, BBB, LL

Sub 矩形8_单击() '向右
    BBB = [AX1]
    LL = 49  'AW列=49列
    For ii = 3 To 6
        HH = ii + 5
        Arr = Range(Cells(ii, LL + 1), Cells(ii, LL + 33))
        Range(Cells(HH, LL + 1), Cells(HH, LL + 33)).Clear
        For i = 1 To 33
            If BBB = Arr(1, i) Then
                For j = 1 + LL To 34 + LL - i
                     Cells(ii, i + j - 1).Copy Cells(HH, j)
                Next j
            End If
        Next i
    Next ii
End Sub

Sub 矩形9_单击() '向左
    BBB = [AX1]
    LL = 49  'AW列=49列
    For ii = 3 To 6
      HH = ii + 10
      Arr = Range(Cells(ii, LL + 1), Cells(ii, LL + 33))
      Range(Cells(HH, LL + 1), Cells(HH, LL + 33)).Clear
      For i = 1 To 33
            If BBB = Arr(1, i) Then
                For j = 33 + LL To 33 + LL - i - 1 Step -1
                   Cells(ii, i + j - 33).Copy Cells(HH, j)
                Next j
            End If
        Next i
    Next ii
End Sub

wsxzaq147

啊,我真是天资笨啊,代入程序还是不行,怎么回事?

guzhen9315

wsxzaq147 发表于 2012-3-5 13:29
啊,我真是天资笨啊,代入程序还是不行,怎么回事?

1、请你点“回复”，就象我这样，否则我不知道你有新问题。

2、我已经在11楼告诉你了，没注意？ 没看懂？
注：你的 [AX1]=1    -------------   （这个是数字格式）
你要改成： [AX1]=“01”  --------  （要改成文本格式）

wsxzaq147

guzhen9315 发表于 2012-3-5 20:07
1、请你点“回复”，就象我这样，否则我不知道你有新问题。

2、我已经在11楼告诉你了，没注意？ 没看懂 ...

哈哈,一语点破,谢谢你!!!!!!!!

wsxzaq147

wsxzaq147 发表于 2012-3-5 20:24
哈哈,一语点破,谢谢你!!!!!!!!

一二再三麻烦你,我自己都不好意思了,你设计的程序非常实用,今日突法奇想,能否增加一个自动功能,免去每次输入麻烦,原程序是在AX1单元格输入不同的数,再点向左、向右键,现在想改为:把在AX1格内输入数在AX1----CD1展开,手工点击向左键后,程序依次运行向右键,再自动点击AY1键,自动运行向左、向右键,再自动点击AZ1键.........至自动点击CD1键,自动运行向左、向右键停止.谢谢!

guzhen9315

wsxzaq147 发表于 2012-3-6 22:49
一二再三麻烦你,我自己都不好意思了,你设计的程序非常实用,今日突法奇想,能否增加一个自动功能,免去每次输 ...

我已经在14楼告诉你：
“请你点“回复”，就象我这样，否则我不知道你有新问题。”

本想下了，才看到，做好再睡吧。

guzhen9315

呵呵，看到你点“回复”了，但你点的是你自己的，我还是不能知道你有新回复的。

现在好了，全自动了。

wsxzaq147

guzhen9315 发表于 2012-3-6 23:50
呵呵，看到你点“回复”了，但你点的是你自己的，我还是不能知道你有新回复的。

现在好了，全自动了。

没用自动啊,要求是程序自动点击AX1.再自动点击向左.再自动点击向右运行,再自动进入下一个循环:程序自动点击AY1.再自动点击向左.再自动点击向右运行,再自动进入下一个循环:程序自动点击AZ1.再自动点击向左.再自动点击向右运行,至自动点击CD1.再自动点击向左.再自动点击向右运行为至.

guzhen9315

AX1、AY1、AZ1、。。。。。CD1
这个都是你要自己点的。

如果这个你也不点（全自动），你看什么呀（你只看它自己跳，你不用看看分析）？


补充一下：
你从“01”（AX1）开始，出来后，你按“->”键，就行了。