写一个宏语句对excel表格进行操作
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/22 15:37:56
写一个宏语句对excel表格进行操作
宏语句的作用如下:excel里有sheet1和sheet2.写一个if语句将sheet1中的第2行第i列和sheet2中的第j行第2列进行比较,如果这两个数一样的话,就将sheet2的第j行第3列的值赋给sheet1中的第3行第i列
求高手给写给能执行的不尽感激,i和j的极值都是30000
宏语句的作用如下:excel里有sheet1和sheet2.写一个if语句将sheet1中的第2行第i列和sheet2中的第j行第2列进行比较,如果这两个数一样的话,就将sheet2的第j行第3列的值赋给sheet1中的第3行第i列
求高手给写给能执行的不尽感激,i和j的极值都是30000
![写一个宏语句对excel表格进行操作](/uploads/image/z/6957183-39-3.jpg?t=%E5%86%99%E4%B8%80%E4%B8%AA%E5%AE%8F%E8%AF%AD%E5%8F%A5%E5%AF%B9excel%E8%A1%A8%E6%A0%BC%E8%BF%9B%E8%A1%8C%E6%93%8D%E4%BD%9C)
我写了个样板,测试可行.代码如下:
Sub tt()
Dim i As Long,j As Long
i = 1
j = 1
If Sheet1.Cells(2,i).Text= Sheet2.Cells(j,2).Text Then
Sheet1.Cells(3,j).Value = Sheet2.Cells(j,3).Value
End If
End Sub
需要循环的话,只需要在 if 外加上循环控制语句就可以了.
GoodLuck!
Sub tt()
Dim i As Long,j As Long
i = 1
j = 1
If Sheet1.Cells(2,i).Text= Sheet2.Cells(j,2).Text Then
Sheet1.Cells(3,j).Value = Sheet2.Cells(j,3).Value
End If
End Sub
需要循环的话,只需要在 if 外加上循环控制语句就可以了.
GoodLuck!