此问题如果仅仅是表1和表2两个表的话,解决相对简单。
· 个人认为不用VBA似乎更简单,在表2的 A1中输入“=表1!A1”,然后按住右下角的拖动按钮,直接拖动复制即可,类似于同一个表格的公式拖动。
· 如果需要使用VBA的话,“匹诺曹_浩”的方法可以实现,只需要加个循环语句,可实现不同列、不同行的单元格赋值。
如:
dim i,j,rowsmax,colsmax
i=1
j=1
for i=1 to rowsmax '当然这里rowsmax =1 ,因为你只要第一行的
for j=1 to colsmax ‘列的数量,从 A 列 开始往后数
worksheets("表2").cells(i,j) =worksheets("表1").cells(i,j)
next j
next i
一般如果需要直接赋值到相应的单元格考虑使用VBA,如果表2中的单元格的值根据表1的随时更新,还是建议使用公式,VBA的形式虽然可以实现但是会增加被并对感染的可能性,且有些电脑可能禁用宏的使用。
找到对应关系 如:
dim i&,j&
i = 1,j=1
worksheets("表2").cells(i,j) 和worksheets("表1").cells(i,j)就对应上了
因为都是相同的 i,j也就是相同的单元格 当 i =10 j =10则两个表都是cells(10,10)不就对应上了吗 你想做调用 比如 sheet2.cells(i,j) = sheet1.cells(i,j)+1 就是调用表1相应单元格值加1
、在任何其他表中用公式调用表1中A1、B1、C1的单元格内容:=表1!A1、=表1!B1、=表1!C1;
用VBA调用表1中A1、B1、C1的单元格内容:Sheets(“表1”).Cells(1, 1)、Sheets(“表1”).Cells(1, 2)、Sheets(“表1”).Cells(1, 3)