Question

excel vba 区域选择

因为数据性质的原因，现在使用vba处理是中间有一个对不同工作簿的不同工作表上面选择相同区域的操作，，但是这个区域每天都有一些变化，但是其他操作都一样，只是到这一步要选的区域有点不同。请问是否可以通过在workbook1.sheet1.A1和A2输入单元格，如A1的值为B2，A2的值为C7，然后将A1、A2的值引用到select方法，使得vba在workbook2.sheet1等工作簿中选中B2：C7的区域然后继续进行操作。其他类似方法也可以，求解。

Answer 1

如何选择当前工作表中的单元格？例如，可以使用下面的代码选择当前工作表中的单元格D5：ActiveSheet.Cells(5, 4).Select或：ActiveSheet.Range("D5").Select如何选择同一工作簿中其它工作表上的单元格？例如，要选择同一工作簿中另一工作表上的单元格E6，可以使用下面的代码：Application.Goto ActiveWorkbook.Sheets("Sheet2").Cells(6, 5)或：Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("E6"))也可以先激活该工作表，然后再选择：Sheets("Sheet2").ActivateActiveSheet.Cells(6, 5).Select如何选择不同工作簿中的单元格？例如，要选择另一工作簿中的一个工作表上的单元格F7，可以使用下面的代码：Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Cells(7, 6)或：Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("F7")也可以先激活该工作簿中的工作表，然后再选择：Workbooks("BOOK2.XLS").Sheets("Sheet1").ActivateActiveSheet.Cells(7, 6).Select如何选择当前工作表中的单元格区域？例如，要选择当前工作表中的单元格区域C2:D10，可以使用下面的代码：ActiveSheet.Range(Cells(2, 3), Cells(10, 4)).Select或：ActiveSheet.Range("C2:D10").Select或：ActiveSheet.Range("C2", "D10").Select如何选择同一工作簿中另一工作表上的单元格区域？例如，要选择同一工作簿中另一工作表上的单元格区域D3：E11，可以使用下面的代码：Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3:E11")或：Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3", "E11")也可以先激活该工作表，然后再选择：Sheets("Sheet3").ActivateActiveSheet.Range(Cells(3, 4), Cells(11, 5)).Select如何选择不同工作簿中工作表上的单元格区域？例如，要选择另一工作簿中某工作表上的单元格区域E4:F12，可以使用下面的代码：Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4:F12")或：Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4", "F12")也可以先激活该工作表，然后再选择：Workbooks("BOOK2.XLS").Sheets("Sheet1").ActivateActiveSheet.Range(Cells(4, 5), Cells(12, 6)).Select如何在当前工作表中选择命名区域？例如，要选择当前工作表中名为“Test”的区域，可以使用下面的代码：Range("Test").Select或：Application.Goto "Test"如何选择同一工作簿中另一工作表上的命名区域？例如，选择同一工作簿中另一工作表上名为“Test”的区域，可使用下面的代码：Application.Goto Sheets("Sheet1").Range("Test")也可以先激活工作表，再选择：Sheets("Sheet1").ActivateRange("Test").Select如何选择不同工作簿中工作表上的命名区域？例如，要选择不同工作簿中工作表上名为“Test”的区域，可使用下面的代码：Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet2").Range("Test")也可以先激活工作表，再选择：Workbooks("BOOK2.XLS").Sheets("Sheet2").ActivateRange("Test").Select

Answer 2

你这个方法也可以啊，range(cells(1,1),cells(2,1))就能取到数据，还可能通过inputbox函数取出，如果是有日期或其他可识别条件的话也可以用程序自动选择区域。用VBA的时候尽量少用select，很影响运行速度。

Answer 3

可以啊。关键是看你程序在哪个工作簿里运行的，如何获取BOOK1里的单元格地址。只要能正确的取到地址，当然没问题。

Answer 4

直接用工具下面的连接,把数值连接过去就可以了,当然也可以建立数据源