EXCEL VBA小技巧之：提取字符串的某个字符和拷贝

提取字符串的某个字符：

Sub 提取单元格中字符串的某个字符()

For i = 2 To 415

Cells(i, "C") = Mid(Cells(i, "A"), 8, 1)

Next i

End Sub

以上代码作用：提取2-415个单元格中字符串第8个字符。如下图所示：

如上表中学号的第8个数字表示班别，要单独提取出来，填充在第3列的班别中。

Sub 合并两个表的成绩()

For i = 2 To 420

For j = 2 To 420

If Range("A" & i).Value = Range("I" & j).Value Then

Range("E" & i).Value = Range("K" & j).Value

Range("F" & i).Value = Range("L" & j).Value

End If

Next j

Next i

End Sub

以上代码可用于解决：两个成绩表上的姓名不对应，但要将两个表格的成绩合并，合并条件是两个表格的姓名要相同。如下表：

如上表中：要将右表的两列数据（期末成绩及名次）填在左侧相应的单元格中。