Excel 如何得到VBA数组的长度

Sub sof()Dim sso()Dim sarsar = Sheets("sheet1").[A65536].End(3).RowReDim sso(1 To sar)For i = 1 To sar sso(i) = Cells(i, 1)NextDim assd, xoxo = 1assd = InputBox("请输入要分几列输出：")For y = 1 To UBound(sso()) For x = 1 To assd Cells(y, x + 2) = sso(xo) xo = xo + 1 If xo > UBound(sso()) Then Exit Sub NextNextEnd Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/x3ejfff23j2vee23ye.html