python数组元素值赋值给数组下标变量 python如何给数组赋值

转载

jojo 2023-09-06 10:03:14

文章标签 python数组赋值给另一个数组 VBA 数组解决方案 文章分类 Python 后端开发

python数组元素值赋值给数组下标变量 python如何给数组赋值_解决方案

VBA++ 题记：一剪闲云一溪月，一程山水一年华。一世浮生一刹那，一树菩提一烟霞。岁月静好，现世安稳。纵算云水漂泊，心若安宁，亦可淡若清风。希望见者与不见者都能安康。静下心，多学习有用的知识，多提高自己的水平和能力，这才是正道。时间就像一张网，你撒在哪里，你的收获就在哪里。谨记自己的方向，这是路之所在。适当节制自我的各种欲望,谁都逃不过时间的历练，谁都是命运的行者，谁都是在人生的道路上一步一趋的行路人。你要做的，是悄悄地去努力，等你变厉害之后，把自己也吓一跳，才是你现在需要当作目标的事。把生活与工作打理好，不负年华。不要轻言你是在为谁付出和牺牲，其实所有的付出和牺牲最终的受益人都是自己。

python数组元素值赋值给数组下标变量 python如何给数组赋值_数组_02

今日内容是和大家分享VBA编程中常用的 “积木”过程代码，这些内容大多是我的经验的记录。来源于我多年的经验。今日分享的是第NO.220，内容是：动态数组的赋值及回填过程

********************************************************************

VBA过程代码220：动态数组的赋值及回填过程

Sub MyNZsmarttwo()
 Dim i%, xrow%, j%, xcount%
 Dim arr() As String
 erow = [c65536].End(3).Row '最后一个非空单元格行号
 j = 1 '数组索引号
 xcount = Application.WorksheetFunction.CountIf([c1:c65536], "王*") '统计有多少姓王的学生
 ReDim arr(1 To xcount) '重新定义数组大小，元素共有xcount个
 For i = 1 To erow
 If Left(Cells(i, 3).Value, 1) = "王" Then
 arr(j) = Cells(i, 3).Value '给数组元素赋值
 j = j + 1 '索引号加1
 End If
 Next i
 [d1:d65536].Clear '清除原有数据
 [d1].Resize(xcount, 1) = Application.WorksheetFunction.Transpose(arr) '将数组输入单元格区域
End Sub

python数组元素值赋值给数组下标变量 python如何给数组赋值_数组_03

代码解析：mynz过程将一个C列存储了学生姓名工作表，有姓“王”的学生存储在动态数组arr中，然后回填到工作表中。在回填的过程的中利用了工作表的转置函数Application.WorksheetFunction.Transpose(arr) 是将数组输入单元格区域。这个单元格区域用的是Resize函数扩展来的，这个函数就是将一个原单元格区域进行扩展，扩展的行数是xcount列数不做扩展。

*******************************************************

python数组元素值赋值给数组下标变量 python如何给数组赋值_解决方案_04