代码之家 › 专栏 › 技术社区 › CGG

从不同工作表复制和粘贴VBA

excel-vba vba excel

-1

CGG · 技术社区 · 6 年前

我正试图从 column B 在 Resource 工作表到 TEST 工作表。

B7 我想要它,所以它在 测试 一个然后用 Offset (1,0)

 Sub CopyName()
 Worksheets("TEST").Range("B" & Rows.Count).End(xlUp).Offset(1, 0) = 
 Worksheets("Resource").Range("B" & Rows.Count).End(xlUp).Value
 End Sub

1 回复 | 直到 6 年前

urdearboy 6 年前

这个遗嘱

抓取范围 Resource 从 B7 Column B
将范围移动到 Test

Sub CopyName()

Dim Resource As Worksheet: Set Resource = ThisWorkbook.Sheets("Resource")
Dim Test As Worksheet: Set Test = ThisWorkbook.Sheets("TEST")
Dim ResourceRange As Range

Set ResourceRange = Resource.Range("B7:B" & Resource.Range("B" & Resource.Rows.Count).End(xlUp).Row)

Test.Range("B" & Test.Rows.Count).End(xlUp).Offset(1).Resize(ResourceRange.Rows.Count, 1).Value = ResourceRange.Value

End Sub

推荐文章

CPS · 当变量值为空时,在另一个变量中赋值

2 年前

xris23 · 通过VBA选择命名范围,让用户直接编辑单元格

2 年前

Stormer · 从Access格式化Excel单元格无效

2 年前

j johns · 通过VBA将ascii art添加到命令提示符

2 年前

BinaryCat · Excel-将单元格转换为具有成对数据的行

2 年前

Waleed · 以下拆分函数的(0)表示什么?

2 年前

judo_ürgens · vlookup和sumif(每个项目的总利润)

2 年前

Louay Alkhawam · 在任意多个列中计算包含子字符串*[橙色]*的行,而不重复计算?

2 年前

smrmodel78 · VBA创建表格未选择正确的范围

2 年前

HouÅ¡tí · 如何检测鼠标释放

2 年前