源数据
结果
Sub 转置()
Dim arr, brr(1 To 60000, 1 To 4)'设置一个足够大的数组brr
arr = [a1].CurrentRegion'源数据赋值到数组arr
For j = 2 To UBound(arr, 2)'遍历数组arr,按列遍历
For i = 3 To UBound(arr)
k = k + 1'计数
'当k=1时
brr(k, 1) = arr(i, 1) '一、人工成本
brr(k, 2) = arr(1, j) '大场
brr(k, 3) = arr(2, j) '预算数
brr(k, 4) = arr(i, j) '数值
Next
Next
[e26].Resize(k, 4) = brr
End Sub
源数据 结果
=-= 结构如下 如查询39 buildArray(39)result ->> [0,26,38,39] 完整代...
import 'package:bip39/bip39.dart' as bip39; import 'packa...
(^O^) 文 ：風海晨 圖：風海晨 追求一个懂的梦…活着 是为了要懂…...
双胆参考39 参考推荐 定位3/*/39
03 15 27 39 划重点是39 ！！！
谁设计ECMAScript TC39（技术委员会39） TC39的过程 stage0: strawman(起草) ...
C39KDH01DTWH港服控球自己C39KDH01DTWH港服控击球C39KDH01DTWH港服击球自己C39K...
今天是2023年2月8日，早起第39天，运动第39天，自由写第39天，写给儿子的第39封信！ 亲爱的儿子： 你开学...
提到 糙叔 我就想起了我最喜欢的演员之一，他是韩国实力演技派影帝河正宇，它的每一部电影我都有看过，从《追击者》到《...
本文标题：''三维表''转一维表
本文链接：https://www.haomeiwen.com/subject/ellqhxtx.html
网友评论