excel中的按钮问题，高手帮忙

来源：百度知道 编辑：UC知道 时间：2024/07/05 02:12:28
我在做一个邻接矩阵（数值只有0和1两种情况），最后需要把10个一样大小的矩阵合并到一起，想在sheet1里设计一个按钮，具体功能是把sheet1里所有数值为1的单元格复制到sheet2中，位置也要一一对应，比如sheet1中的单元格是b3，复制到sheet2中的格式也要是b3
另外，还想做一个按钮，只对于当前的sheet而言，实际上就是转置，希望的效果是如果R15C46的值是1，那么R46C15的值也是1，就是不管数据是什么状况，点一下按钮就能把当前所有值为1的单元格转置过去
希望会的人能给我提供一下代码，谢谢~~

1、转换，sheet1到sheet2
Private Sub CommandButton1_Click()
Dim hang As Integer
Dim lie As Integer

For hang = 1 To 100
For lie = 1 To 100
If Worksheets("sheet1").Cells(hang, lie) = 1 Then
Worksheets("sheet2").Cells(hang, lie) = 1
End If
Next
Next
End Sub

2、转置
Private Sub CommandButton2_Click()
Dim hang As Integer
Dim lie As Integer

For hang = 1 To 100
For lie = 1 To 100
If Worksheets("sheet1").Cells(hang, lie) = 1 Then
Worksheets("sheet1").Cells(lie, hang) = 1
End If
Next
Next

End Sub

注意：行，列的值暂设为100，可以根据需要改