顺便把表2的代码也给你。- Sub bbb()
- Dim rng As Range, rng1 As Range
- Set rng = Selection
- Set rng1 = [d17].CurrentRegion
- If rng.Count > 1 Then Exit Sub
- If Intersect(rng, rng1) Is Nothing Then Exit Sub
- If Intersect(rng.Offset(, 1), rng1) Is Nothing Then Exit Sub
- If Intersect(rng.Offset(, -1), rng1) Is Nothing Then Exit Sub
- Dim arr(2, 2), j&
- For j = 0 To 2
- arr(1, j) = Selection.Offset(, j - 1)
- arr(0, j) = IIf(arr(1, j) = 0, 9, arr(1, j) - 1)
- arr(2, j) = IIf(arr(1, j) = 9, 0, arr(1, j) + 1)
- Next j
- Cells(19, Selection.Column - 1).Resize(3, 3) = arr
- End Sub
复制代码 |