3个回答
展开全部
工具：office excel
步骤：
1、打开office excel，点击选项，工具选项菜单>宏>录制宏。
2、对宏进行操作，例如想使选中区域数据居中对齐，则对数据进行居中操作，最后点击终止按钮即可。
3、查看源代码点击键盘alt+f11即可完成。
本回答由电脑网络分类达人 刘佳推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
你可以用cell(i,j).value来循环调用单元格的值。
例如下列代码，读取所有有数据行，判断i行6列的数值是否为XX，XX1，YY,YY2，如果是，则在24列写入标记XX或者YY,如果是第三种就直接将当前值移动到24列。
With Sheets(1)
iRow = .[a1].CurrentRegion.Rows.Count
For i = 2 To iRow
If .Cells(i, 6) = "XX" Or .Cells(i, 6) = "XX1" Then
.Cells(i, 24) = "XX"
Else
If .Cells(i, 6) = "YY" Or .Cells(i, 6) = "YY2" Then
.Cells(i, 24) = "YY"
Else
.Cells(i, 24) = .Cells(i, 6)
End If
End If
Next
End With
例如下列代码，读取所有有数据行，判断i行6列的数值是否为XX，XX1，YY,YY2，如果是，则在24列写入标记XX或者YY,如果是第三种就直接将当前值移动到24列。
With Sheets(1)
iRow = .[a1].CurrentRegion.Rows.Count
For i = 2 To iRow
If .Cells(i, 6) = "XX" Or .Cells(i, 6) = "XX1" Then
.Cells(i, 24) = "XX"
Else
If .Cells(i, 6) = "YY" Or .Cells(i, 6) = "YY2" Then
.Cells(i, 24) = "YY"
Else
.Cells(i, 24) = .Cells(i, 6)
End If
End If
Next
End With
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
很简单,完整的调用路径为:
workbooks（xxx.xls）.sheets（"Sheet1"）.cells（1,1）.value
如上就是调用xxx.xls中Sheet1这页中编号为A1的单元格的值
如果只是调用宏本身所在工作表中的数据就写成sheets（"Sheet1"）.cells（1,1）.value即可，如果是调用宏所在表中页中的数据则直接可写成cells（1,1）.value
workbooks（xxx.xls）.sheets（"Sheet1"）.cells（1,1）.value
如上就是调用xxx.xls中Sheet1这页中编号为A1的单元格的值
如果只是调用宏本身所在工作表中的数据就写成sheets（"Sheet1"）.cells（1,1）.value即可，如果是调用宏所在表中页中的数据则直接可写成cells（1,1）.value
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
