如何将座位表整个倒过来

我是美女123456 · 发表于 2022-10-18 12:51

本帖最后由我是美女123456 于 2022-10-18 12:52 编辑

现在讲台、前门在表格下方，想整个翻转，讲台、前门在表格上方

HSIAOQIANG · 发表于 2022-10-18 13:45

365新公式

yfan17 · 发表于 2022-10-18 13:50

=OFFSET(B$1,8-ROW($A1),)

复制代码

tiger1976 · 发表于 2022-10-18 13:56

Sub 前门在上面()

Dim arr
Dim i As Integer
Dim k As Integer
Dim m As Integer

arr = Range("b1:h8")

For i = 1 To UBound(arr, 2)
m = 0
      For k = UBound(arr) To 1 Step -1
         m = m + 1
         Cells(m, i + 1) = arr(k, i)
      Next
Next

End Sub

jojo_9090 · 发表于 2022-10-18 14:03

本帖最后由 jojo_9090 于 2022-10-18 14:05 编辑

一个笨办法，后面加上序号，然后反着排序，就会全部反过来

我是美女123456 · 发表于 2022-10-18 14:39

jojo_9090 发表于 2022-10-18 14:03
一个笨办法，后面加上序号，然后反着排序，就会全部反过来

这个办法我用了，想着有没有更好的，谢谢您，新人同努力

g407y2 · 发表于 2022-10-18 16:14

紫色蒲公英 · 发表于 2022-10-19 21:02

是不是要这个效果？

后视座位表中所有单元格均用这个公式：
=IFERROR(INDEX($B$3:$R$11,ROW($R$11)-ROW()+16,COLUMN($R$11)-COLUMN()+1),"")

sandays · 发表于 2022-10-20 06:59

显示方向转180度。

		自动登录	找回密码
密码			免费注册

[求助] 如何将座位表整个倒过来