arr 1= Sheet1.Range("a2:b" & Sheet1.Range("a65535").End(xlUp).Row)
arr1 是一个二维数组，现在要把range(c3)=arr(i,2)的所有条件的arr(i,1)组成一个新的数组，这该怎么做呢？
第1个回答 2022-09-01
SUB AA()
DIM I ,brr(1 to 1000,1 to 1)
arr1= ***.range("a2:b" & ***.range("a65535").End(xlUp).Row)
for i = 1 to ubound(arr1)
if range(c3)=arr(i,2) then
n=n+1
brr(N,1)=arr(i,2)
end if
next
[c4].resize(n,1)=brr
end sub本回答被网友采纳
DIM I ,brr(1 to 1000,1 to 1)
arr1= ***.range("a2:b" & ***.range("a65535").End(xlUp).Row)
for i = 1 to ubound(arr1)
if range(c3)=arr(i,2) then
n=n+1
brr(N,1)=arr(i,2)
end if
next
[c4].resize(n,1)=brr
end sub本回答被网友采纳
第2个回答 2022-09-01
SUB AA()
DIM I ,brr(1 to 1000,1 to 1)
arr1= ***.range("a2:b" & ***.range("a65535").End(xlUp).Row)
for i = 1 to ubound(arr1)
if range(c3)=arr(i,2) then
n=n+1
brr(N,1)=arr(i,2)
end if
next
[c4].resize(n,1)=brr
end sub
DIM I ,brr(1 to 1000,1 to 1)
arr1= ***.range("a2:b" & ***.range("a65535").End(xlUp).Row)
for i = 1 to ubound(arr1)
if range(c3)=arr(i,2) then
n=n+1
brr(N,1)=arr(i,2)
end if
next
[c4].resize(n,1)=brr
end sub
第3个回答 2022-09-01
SUB AA()
DIM I ,brr(1 to 1000,1 to 1)
arr1= ***.range("a2:b" & ***.range("a65535").End(xlUp).Row)
for i = 1 to ubound(arr1)
if range(c3)=arr(i,2) then
n=n+1
brr(N,1)=arr(i,2)
end if
next
[c4].resize(n,1)=brr
end sub
DIM I ,brr(1 to 1000,1 to 1)
arr1= ***.range("a2:b" & ***.range("a65535").End(xlUp).Row)
for i = 1 to ubound(arr1)
if range(c3)=arr(i,2) then
n=n+1
brr(N,1)=arr(i,2)
end if
next
[c4].resize(n,1)=brr
end sub
第4个回答 2022-09-01
SUB AA()
DIM I ,brr(1 to 1000,1 to 1)
arr1= ***.range("a2:b" & ***.range("a65535").End(xlUp).Row)
for i = 1 to ubound(arr1)
if range(c3)=arr(i,2) then
n=n+1
brr(N,1)=arr(i,2)
end if
next
[c4].resize(n,1)=brr
end sub
DIM I ,brr(1 to 1000,1 to 1)
arr1= ***.range("a2:b" & ***.range("a65535").End(xlUp).Row)
for i = 1 to ubound(arr1)
if range(c3)=arr(i,2) then
n=n+1
brr(N,1)=arr(i,2)
end if
next
[c4].resize(n,1)=brr
end sub
第5个回答 2022-08-31
SUB AA()
DIM I ,brr(1 to 1000,1 to 1)
arr1= ***.range("a2:b" & ***.range("a65535").End(xlUp).Row)
for i = 1 to ubound(arr1)
if range(c3)=arr(i,2) then
n=n+1
brr(N,1)=arr(i,2)
end if
next
[c4].resize(n,1)=brr
end sub
DIM I ,brr(1 to 1000,1 to 1)
arr1= ***.range("a2:b" & ***.range("a65535").End(xlUp).Row)
for i = 1 to ubound(arr1)
if range(c3)=arr(i,2) then
n=n+1
brr(N,1)=arr(i,2)
end if
next
[c4].resize(n,1)=brr
end sub
