[已解决]敬请各位老师帮忙修改代码解决数字横行显示变成竖列显示的问题，非常感谢！

lsyylw

2022-7-27--.zip (13.47 KB, 下载次数: 2)

2022-7-27 13:54 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

林木水

2022-7-27 17:42

OFFSET(0,SU)改成OFFSET(SU,0)试试

跳转到最佳答案楼层

SlimEvans

是不是这样的效果，看下
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Cells(8, 1) = 1 Then
        If Not Application.Intersect(Target, Range("A11:A20")) Is Nothing And Target.Count = 1 Then
            Cells(11, 8) = Target.Row - 11
        End If
    ElseIf Cells(8, 1) = 2 Then
        If Not Application.Intersect(Target, Range("A11:A20")) Is Nothing And Target.Count = 1 Then
            Cells(12, 8) = Target.Row - 11
        End If
    End If
End Sub

林木水

OFFSET(0,SU)改成OFFSET(SU,0)试试

lsyylw

SlimEvans 发表于 2022-7-27 16:53
是不是这样的效果，看下
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Cells(8 ...

非常感谢老师，代码非常好用。

lsyylw

林木水 发表于 2022-7-27 17:42
OFFSET(0,SU)改成OFFSET(SU,0)试试

非常感谢老师，您教我的办法非常成功。