从某区域 K3:O100 倒着写到 A2:E100

jylai

请老师帮忙感谢

LIUZHU

用JSA，超简单

LIUZHU

需要用WSP测试

jylai

老师 甚么是 JSA ？附件里怎么没有看到任何代码呢 ？

GG函数

xwcbz

Sub ceshi()
    Dim rngSource As Range
    Dim rngDestination As Range
    Dim arrData() As Variant
    Dim i As Long, j As Long
    Dim rows As Long
    Set rngSource = ThisWorkbook.Sheets("Sheet1").Range("A2:e8")
    Set rngDestination = ThisWorkbook.Sheets("Sheet1").Range("r2:v10")
    arrData = rngSource.Value
    rows = UBound(arrData, 1)
    For i = rows To 1 Step -1
        rngDestination.Cells(rows - i + 1, 1).Value = arrData(i, 1)
        rngDestination.Cells(rows - i + 1, 2).Value = arrData(i, 2)
        rngDestination.Cells(rows - i + 1, 3).Value = arrData(i, 3)
        rngDestination.Cells(rows - i + 1, 4).Value = arrData(i, 4)
        rngDestination.Cells(rows - i + 1, 5).Value = arrData(i, 5)
    Next i
End Sub

xwcbz

jylai

GG函数 发表于 2024-3-19 19:42

老师您太厉害，感谢您

q490525427

来来凑个热闹

jylai

xwcbz 发表于 2024-3-19 19:47

老师您是你写反了吗？是从右边到左边呢？怕老师们搞错了，用箭头由右手到左手方向