现在我们想做如下操作: 想把表1的数据转化为表2的数据,那么我们只需要如下这段代码即可解决需求 Sub 转置() Dim i%, arr arr = Application.InputBox("选择区域", Type:=8) t1 = UBound(arr) t2 = UBound(arr, 2) ReDim brr(1 To t1 * t2, 1 To 3) For i = 2 To t1 m = 1 For k = i To i + t2 - 2 n = n + 1 m = m +
STA 单元 (用到 System.SysUtils.TStringHelper): ------------------------------------------------------------------------------------------------------------------------------------------ unit STA; interface uses System.SysUtils, System.Classes; type TSta
<!DOCTYPE html> <html lang="en"> <head> <meta charset="utf-8"> <script type="text/javascript"> var num = 4;//每个子数组里的元素个数 var arr = [1,4,5,6,34,34,67,895,2456,87,9,5,23,884,56]; var Arr = new Arra