1樓:jaffedream
先執行test,獲得數值的排列方法,然後G1填入=GETCOLUMN1(A1,A1),右拉下拉即可。
Option Explicit
Dim k As Long
Sub test()
Dim x, z As Integer
z = 5
Dim arr(), i As Byte
ReDim arr(z)
k = 0
For i = 0 To z - 1
arr(i) = i + 1
Next
Solver arr, 0
End Sub
Function Solver(arr(), M As Byte)
Dim i, n As Byte, t As Byte
n = 5
If M < n - 1 Then
Solver arr, M + 1
For i = M + 1 To n - 1t = arr(M): arr(M) = arr(i): arr(i) = tSolver arr, M + 1t = arr(M):
arr(M) = arr(i): arr(i) = t
Next
Else
k = k + 1
Cells(k, 1).Resize(, n) = arr
End If
End Function
Function GETCOLUMN1(L As Integer, M As Integer)
GETCOLUMN1 = Split(Cells(L, M).Address(1, 0), "$")(0)
End Function
如何用向量(a,b,c)和(x,y,z)表示向量(ax,by,cz)?
趙樸凝 這是不可能的。對於你舉的例子,叉乘後的向量在任何直角座標系下結果都是一樣的。而計算的 ax,by,cz 向量就會隨座標系的變化而有所不同,例如,在某個座標系下 a,b,c 0,0,1 x,y,z 1,0,0 那麼 ax,by,cz 0,0,0 是乙個零向量。但是你換乙個座標系,做出的結果就不...
Excel中,如何用公式解決問題?
啃烤紅薯 審題不嚴審題不嚴審題不嚴。方法比較笨,是按照最基礎的邏輯堆的公式。修改後公式為 IF A2 IF B1 IF MID B1,FIND B1 1,LEN B1 FIND B1 1 LEFT B1,FIND B1 1 0,CONCATENATE LEFT B1,FIND B1 1 MID B1...
剛學用python處理excel 如何用python 將 xls檔案批量去重
王加加 可以使用pandas的drop duplicates import pandas aspd data pd read excel C Temp data.xlsx data drop duplicates 也可以指定列來去重 import pandas aspd data pd read e...