- ©«¤l
- 60
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 64
- ÂI¦W
- 0
- §@·~¨t²Î
- w7-32
- ³nÅ骩¥»
- 2013.2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-11-23
- ³Ì«áµn¿ý
- 2016-6-6
|
- Private Sub Worksheet_Change(ByVal Target As Range)
- If Target.Address = "$A$1" Then
- cx = Sheets(2).[B65536].End(xlUp).Row
- If Sheets(2).Cells(1, 2) = Empty Then
- cx = 1
- Else
- cx = cx + 1
- End If
- Sheets(2).Cells(cx, 2) = Cells(1, 1)
- Cells(1, 1).Select
- End If
- End Sub
½Æ»s¥N½X |
|