如何用Excel VBA复制每行两次并为code列添加前/后相邻字母

解决思路 #

• 利用VBA内置的Asc()函数获取字母对应的ASCII码值，对ASCII码做±1操作后，再用Chr()函数转回字符，即可得到相邻字母
• 原有代码已经实现了行复制、数值列取反的逻辑，只需要补充code列的字符转换逻辑即可

修改后的完整代码 #

Sub mysub()

Dim r As Range, n As Long, i As Long
Dim originalCodeAsc As Integer
Dim wb As Workbook: Set wb = ThisWorkbook
' 修正原声明的变量类型问题，避免ws1被默认为Variant
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = wb.Sheets("Sheet1")
Set ws2 = wb.Sheets("Sheet2")

Set r = ws1.Range("C3", ws1.Range("E" & Rows.Count).End(xlUp))
' 可选：清空ws2原有内容，避免重复运行残留旧数据
ws2.UsedRange.Clear

For i = 1 To r.Rows.Count
    ' 获取当前行原code的ASCII码
    originalCodeAsc = Asc(r.Cells(i, 3).Value)
    n = n + 1
    ws2.Cells(n + 1, 1).Value = r.Cells(i, 1).Value
    ws2.Cells(n + 1, 2).Value = r.Cells(i, 2).Value
    ' 第一行取前一个字母
    ws2.Cells(n + 1, 3).Value = Chr(originalCodeAsc - 1)
    
    n = n + 1
    ws2.Cells(n + 1, 1).Value = r.Cells(i, 1).Value
    ws2.Cells(n + 1, 2).Value = r.Cells(i, 2).Value * -1
    ' 第二行取后一个字母
    ws2.Cells(n + 1, 3).Value = Chr(originalCodeAsc + 1)
Next i

End Sub

边界场景补充 #

如果需要处理首尾字母的边界场景（比如原字母为A时前一个取Z，原字母为Z时后一个取A），可以在字符转换处增加判断逻辑：

' 前一个字母的边界处理
If originalCodeAsc = Asc("A") Then
    prevCode = "Z"
Else
    prevCode = Chr(originalCodeAsc - 1)
End If

' 后一个字母的边界处理
If originalCodeAsc = Asc("Z") Then
    nextCode = "A"
Else
    nextCode = Chr(originalCodeAsc + 1)
End If

内容的提问来源于stack exchange，提问作者PrettyClose