昵称:清霜残雪 头衔:版主 积分:303分 注册:2009-7-15
状态:离线
| | 顶一下,又学到一招!!! 除了上诉方法外,要是用宏也能达到此种效果 Sub 引用数据() Dim i As Integer Dim s As String For i = 1 To Sheets.Count s = Sheets(i).Name If Cells(i, 1).Text = s Then Cells(i, 2) = Sheets(i).Cells(6, 7) Cells(1, 2) = "数量" Next End Sub |
明强、敬恕,如履薄冰。 自信、努力、实现理想。 | |