[已解决]使用VBA一表内横向输入数据时，另一表格以竖向自动填入相应数据

wwj804

麻烦各位老师了，我因工作需要，急需VBA这功能。要求是，在”清单“工作表从指定单元格I2起往右输入数据时，在”汇总“工作表指定单元格E2起以竖向自动填入，如：
当”清单“工作表 I2 单元格输入1时，”汇总“工作表 E2 单元格自动填入1；
当”清单“工作表 J2 单元格输入2时，”汇总“工作表 E3 单元格自动填入2；
当”清单“工作表 K2 单元格输入3时，”汇总“工作表 E4 单元格自动填入3；
以此类推。

最佳答案

月排行榜 / 总排行榜

france723

2017-5-11 19:35

wwj804 发表于 2017-5-11 18:32
老师你好，效果是有了，但是方向错了，我的要求是02表输入数据时01表自动填入，现在反过来了，怎么改 ...

见附件

跳转到最佳答案楼层

france723

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim a
   
3. If Application.Intersect(Target, Range("e2:e65536")) Is Nothing Then
   
4.     Exit Sub
   
5.     Else
   
6.         a = Target.Row
   
7.         Sheets("汇总").Cells(2, 7 + a) = Target
   
8. End If
   
9. End Sub

复制代码

wwj804

france723 发表于 2017-5-10 19:57

代码加进去后，不对啊，怎么没反应呢？Excel 2007，老师，你直接写在附件中吧

大灰狼1976

wwj804 发表于 2017-5-11 08:09
代码加进去后，不对啊，怎么没反应呢？Excel 2007，老师，你直接写在附件中吧

确认两个事项：
如果清单输入时跳过一列，那么要不要在汇总表内体现出此空单元格？
如果清单输入时没有顺序，比如M1→I1→P1这样的顺序时，汇总表内要怎么体现？

大灰狼1976

另，如果你要清单表内修改了一个数字，怎么体现至汇总表？

france723

自己把页名改过来, 程序里的"02"也改过来

wwj804

france723 发表于 2017-5-11 14:43
自己把页名改过来, 程序里的"02"也改过来

老师你好，效果是有了，但是方向错了，我的要求是02表输入数据时01表自动填入，现在反过来了，怎么改？

france723

wwj804 发表于 2017-5-11 18:32
老师你好，效果是有了，但是方向错了，我的要求是02表输入数据时01表自动填入，现在反过来了，怎么改 ...

见附件

wwj804

france723 发表于 2017-5-11 19:35
见附件

谢谢老师，太好了！

wwj804

france723 发表于 2017-5-11 19:35
见附件

你好老师，我想把二组代码整合在一起，可是不会做，怎样做？

代码1：
Private Sub Worksheet_Change(ByVal Target As Range)

    Dim a
    If Target.Row <> 2 Then
    Exit Sub
    Else
        a = Target.Column
        Sheets("汇总").Cells(a - 7, 5) = Target
    End If
End Sub

代码2：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row < 3 Or Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    If Len(Target) = 0 Then Target.EntireRow = ""
    arr = Sheet8.[a1].CurrentRegion
    Set d = CreateObject("scripting.dictionary")
    For i = 2 To UBound(arr)
        d(CStr(arr(i, 1))) = i
    Next
    i = d(CStr(Target.Value))
    If i > 0 Then
        Target.Offset(, 1) = arr(i, 4)
        Target.Offset(, 2) = arr(i, 9)
    End If
        
    Application.EnableEvents = True
End Sub