|
本帖最后由 雪舞子 于 2014-1-25 11:52 编辑
是不是这个意思- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim i%, j%, h%, k%
- If Target.Column > 1 Or Target.Row < 3 Then Exit Sub
- Application.EnableEvents = False
- h = Target.Row
- Range("a1:l1000").Rows(h + 1 & ":1000").Clear
- For i = 2 To 11
- Cells(h + 1, i) = Cells(h, i).Value
- If Cells(h, 1) = Cells(h, i) Then
- Cells(h, i).Font.FontStyle = "加粗"
- Cells(h, 12) = Cells(2, i).Value
- Cells(h + 1, 11) = Cells(h, i).Value
- k = i: i = 11
- End If
- Next
- For j = k To 10
- Cells(h + 1, j) = Cells(h, j + 1).Value
- Next
- Application.EnableEvents = True
- End Sub
复制代码
序列.rar
(15.55 KB, 下载次数: 8)
|
|