比如把下面的'1911'弄到另一列,还得去掉':',还要防止无答案的情况,及两个':'的情况
清华大学建于哪一年? : 1911
Sub copyAnswer()
For j = 2 To 993
For i = 1 To Len(Sheet2.Cells(j, 1).Value)
If (Mid(Sheet2.Cells(j, 1).Value, i, 1) = ":") And (i <> Len(Sheet2.Cells(j, 1).Value)) Then
Sheet2.Cells(j, 2).Value = Trim(Right(Sheet2.Cells(j, 1).Value, (Len(Sheet2.Cells(j, 1).Value) - i)))
Sheet2.Cells(j, 1).Value = Left(Sheet2.Cells(j, 1).Value, i - 1)
End If
Next i
Next j
For k = 2 To 993
For p = 1 To Len(Sheet2.Cells(k, 2).Value)
If (Mid(Sheet2.Cells(k, 2).Value, p, 1) = ":") And (Len(Sheet2.Cells(k, 2).Value) <> 1) Then
Sheet2.Cells(k, 2).Value = Trim(Mid(Sheet2.Cells(k, 2).Value, 3, Len(Sheet2.Cells(k, 2).Value) - 2))
Sheet2.Cells(k, 1).Value = Sheet2.Cells(k, 1).Value + ":"
End If
If (Mid(Sheet2.Cells(k, 2).Value, p, 1) = ":") And (Len(Sheet2.Cells(k, 2).Value) = 1) Then
Sheet2.Cells(k, 2).Value = ""
Sheet2.Cells(k, 1).Value = Sheet2.Cells(k, 1).Value + ":"
End If
Next p
Next k
End Sub
评论