|
- Sub xx()
- Dim d As Object
- Dim ir, i, j, K, L
- Dim str
- Set d = CreateObject("scripting.dictionary")
- Application.ScreenUpdating = False
- On Error Resume Next
- Sheets("sheet1").Select
- ir = Range("b65536").End(xlUp).Row
-
- For i = 2 To ir
- For j = 4 To 8
- str = str & "|" & Cells(i, j) - 15
- Next
- str = Mid(str, 2)
- d(Cells(i, 2).Value & "") = str
- str = ""
- Next
-
- Sheets("sheet2").Select
- ir = Range("b65536").End(xlUp).Row
- For i = 3 To ir
- Range(Cells(i, 4), Cells(i, 8)) = Split(d(Cells(i, 2).Value & ""), "|")
-
- Next
-
- Application.ScreenUpdating = True
- 'Range("D3:H74").Value = Range("D3:H74").Value
- For K = 3 To i
- For L = 4 To 8
- Cells(K, L) = VBA.Abs(Cells(K, L))
- Next
- Next
- End Sub
复制代码
|
|