如何在vba中删除数组的某一条记录，比方说a(1,2)这条记录。
答案:3 悬赏:0 手机版
解决时间 2021-02-25 13:42
- 提问者网友：城市野鹿
- 2021-02-24 21:16
如何在vba中删除数组的某一条记录，比方说a(1,2)这条记录。
最佳答案
- 五星知识达人网友：怙棘
- 2021-02-24 22:25
自己看哈，不懂问我
Private Sub Form_Click()
Dim a(1 To 5) As Integer
Dim i%, n%, j%, teap%
a(1) = 100
a(2) = 101
a(3) = 102
a(4) = 104
a(5) = 105
For i = 1 To 5
Print a(i);
Next
Print
n = Int(InputBox("请输入你要删除的位置"))
For i = n To 4
a(i) = a(i + 1)
Next
Print "删除后："
For i = 1 To 4
Print a(i);
Next
End Sub
Private Sub Form_Click()
Dim a(1 To 5) As Integer
Dim i%, n%, j%, teap%
a(1) = 100
a(2) = 101
a(3) = 102
a(4) = 104
a(5) = 105
For i = 1 To 5
Print a(i);
Next
n = Int(InputBox("请输入你要删除的位置"))
For i = n To 4
a(i) = a(i + 1)
Next
Print "删除后："
For i = 1 To 4
Print a(i);
Next
End Sub
全部回答
- 1楼网友：長槍戰八方
- 2021-02-25 00:26
看这个例子理解
Sub oo()
Dim a As Variant
a = Array(1, 2, 3, 4)
a(1) = [0]
MsgBox (a(1))
End Sub
- 2楼网友：夜余生
- 2021-02-24 23:18
你的arr数组，本是一维数组，不需要转置。
只有arr=range("a1:a" & m).value 得来的才是二维的，但是转置以后还是二维的。
用循环，用range也是可以的
for j for j =2 to 10 step 2
sheets("0" & aaa).cells(8,i)=brr(i)
for j =2 to 10 step 2
sheets("0" & aaa).range("b8").offset(0,j-2)=arr(j/2)
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯