帮改一下代码

cqx888625 · 发表于 2023-3-24 17:04

本帖最后由 cqx888625 于 2023-3-24 17:11 编辑

arr = Worksheets("Sheet2").Range("a1:a" & Range("a65536").End(xlUp).Row)

复制代码

意思是想在Sheet1的工作薄用这段代码提取“Sheet2”这个工作薄的A列数据

zjzyj · 发表于 2023-3-24 17:41

arr = Worksheets("Sheet2").Range("a1:a" & Worksheets("Sheet2").Range("a65536").End(xlUp).Row)

arr = Worksheets("Sheet2").Range("a1").rezise(Worksheets("Sheet2").Range("a65536").End(xlUp).Row)

xunanming · 发表于 2023-3-24 18:50

你已经将数据写入数组了,那就指定位置,输出到表格.如sheets("sheet1").range("a1").reisze(ubound(arr),1)=arr.如果要提取其中的元素,那就要指定数组内的坐标.

excel玉米 · 发表于 2023-3-24 18:54

Arr = Sheet2.Range("a1:a" & sheet2.Range("a65536").End(xlUp).Row)
Sheet1.range("a1").resize(ubound(Arr),ubound(Arr,2))=Arr

杨建营 · 发表于 2023-3-24 18:57

arr = Worksheets("Sheet2").Range("a1:a" & Worksheets("Sheet2"). Range("a65536").End(xlUp).Row)

淡__ · 发表于 2023-3-24 20:55

arr=Range("a1").CurrentRegion

复制代码

HSIAOQIANG · 发表于 2023-3-24 22:16

淡__ 发表于 2023-3-24 20:55

不是CURRENTREGION

HSIAOQIANG · 发表于 2023-3-24 22:17

RANGE("A1:A"&ACTIVESHEET.USEDRANGE.ROWS.COUNT

cqx888625 · 发表于 2023-3-25 08:25

杨建营发表于 2023-3-24 18:57
arr = Worksheets("Sheet2").Range("a1:a" & Worksheets("Sheet2"). Range("a65536").End(xlUp).Row)

谢谢，就差你这个

cqx888625 · 发表于 2023-3-25 08:28

感谢大家。菜鸟，不懂自己摸索

		自动登录	找回密码
密码			免费注册

[求助] 帮改一下代码