这个代码简化了是这样。能不能变成数组。- Sub head01()
- For i = 1 To [a65536].End(3).Row
- For j = 2 To 33
- If arr1 = Cells(j, 6) Then
- Cells(i, 2) = Cells(j, 7) & Mid(Cells(i, 1), 2, 100)
- Else
- End If
- Next j
- Next i
- End Sub
- Sub transmdd01()
- For i = 1 To [a65536].End(3).Row
- For j = 2 To 25
-
- Select Case Mid(Cells(i, 1), j, 1)
- Case Cells(2, 6)
- Cells(i, 2).Value = Replace(Cells(i, 2).Value, Mid(Cells(i, 2), j, 1), Cells(2, 8))
- End Select
- Next j
- Next i
- End Sub
- Sub spellcheck01()
- For i = 1 To [a65536].End(3).Row
- For j = 1 To [m65536].End(3).Row
- If Mid(Sheet1.Cells(i, 2), 1, 2) = Sheet1.Cells(j, 12) Then
- Sheet1.Cells(i, 2).Value = Replace(Sheet1.Cells(i, 2).Value, Mid(Sheet1.Cells(i, 2), 1, 2), Cells(j, 13))
- Else
- End If
- Next j
- Next i
- End Sub
- Sub spellcheck02()
- For i = 1 To [a65536].End(3).Row
- For j = 1 To [o65536].End(3).Row
- If Right(Sheet1.Cells(i, 2), 2) = Sheet1.Cells(j, 15) Then
- Sheet1.Cells(i, 2).Value = Replace(Sheet1.Cells(i, 2).Value, Right(Sheet1.Cells(i, 2), 2), Cells(j, 16))
- Else
- End If
-
- Next j
- Next i
-
- End Sub
复制代码 |