时间戳

首页 > 解决方案 > 根据命名范围的单元格输入设置范围

excel - 根据命名范围的单元格输入设置范围

问题描述

VBA 的新手。我正在尝试将值从源电子表格复制到目标电子表格。在目标电子表格中，我有一个导入设置表，其中有一列包含我要从源电子表格复制的命名范围，我还有一列包含复制数据目标的命名范围。

我无法定义目标范围和源范围。我希望脚本通过每一行并将目标和源范围设置为导入设置表中相关列中指定的命名范围，并将数据从源复制到目标。

任何帮助将不胜感激。 

Public Sub grabIRR()   
Dim temp_workbook As Excel.Workbook
Dim filepath As String
Dim filename As String
Dim source_range As String
Dim dest_range As String
Dim IRR_Row As Integer

Application.Calculation = xlCalculationManual
Set temp_workbook = Workbooks.Open(filename:=link_to_IRR, ReadOnly:=True)
Application.Calculation = xlCalculationManual

shtPrivateEquity.Cells.ClearContents

For IRR_Row = 15 To 110
    dest_range = Worksheets("import_settings").Range(IRR_Row, 11).Value.RefersToRange
    source_range = Worksheets("import_settings").Range(IRR_Row, 9).Value.RefersToRange
    shtPrivateEquity.Range(dest_range).Value = temp_workbook.Names(source_range).RefersToRange.Value
Next IRR_Row
On Error GoTo 0

Application.Calculation = xlCalculationAutomatic
temp_workbook.Close savechanges:=False

结束子

标签： excelvbanamed-ranges

解决方案

我认为将名称用作字符串而不是范围对象会更容易。

尝试这个：

For IRR_Row = 15 To 110
    dest_range_name = Worksheets("import_settings").Cells(IRR_Row, 11).Value
    source_range_name = Worksheets("import_settings").Cells(IRR_Row, 9).Value
    shtPrivateEquity.Range(dest_range_name).Copy Destination := temp_workbook.Range(source_range_name)
Next IRR_Row

请注意，我更改了一些变量名称并将非法更改Range(row, column)为Cells(row, column).

推荐阅读