现在我们想做如下操作: 想把表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 +…
第一种:利用shell for循环来实现. for i in `seq 1 9`do for j in `seq 1 9` do if [ $i -ge $j ] then echo -en "$i x $j = $(($i*$j)) " fi doneecho ' 'doneecho 第二种:利用awk二维数组和 for循环来实现 [root@iZ2ze1rl2qyewq63peun8vZ 1.脚本]# awk 'BEGIN{for(i=1;i<=9;i++){for (j=1…