求助一段VBA代码(合并和相加,取奇偶数)要求:1、把F2和F3合并,(F1为标题),结果放在F2.如1和2,合并为12,同时删除F3内容.接着把F4和F5合并(同上)直至F列为空.2、把I2和I3相加,(I1为标题),
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/18 21:26:26
![求助一段VBA代码(合并和相加,取奇偶数)要求:1、把F2和F3合并,(F1为标题),结果放在F2.如1和2,合并为12,同时删除F3内容.接着把F4和F5合并(同上)直至F列为空.2、把I2和I3相加,(I1为标题),](/uploads/image/z/9115296-24-6.jpg?t=%E6%B1%82%E5%8A%A9%E4%B8%80%E6%AE%B5VBA%E4%BB%A3%E7%A0%81%EF%BC%88%E5%90%88%E5%B9%B6%E5%92%8C%E7%9B%B8%E5%8A%A0%2C%E5%8F%96%E5%A5%87%E5%81%B6%E6%95%B0%EF%BC%89%E8%A6%81%E6%B1%82%EF%BC%9A1%E3%80%81%E6%8A%8AF2%E5%92%8CF3%E5%90%88%E5%B9%B6%2C%EF%BC%88F1%E4%B8%BA%E6%A0%87%E9%A2%98%EF%BC%89%2C%E7%BB%93%E6%9E%9C%E6%94%BE%E5%9C%A8F2.%E5%A6%821%E5%92%8C2%2C%E5%90%88%E5%B9%B6%E4%B8%BA12%2C%E5%90%8C%E6%97%B6%E5%88%A0%E9%99%A4F3%E5%86%85%E5%AE%B9.%E6%8E%A5%E7%9D%80%E6%8A%8AF4%E5%92%8CF5%E5%90%88%E5%B9%B6%EF%BC%88%E5%90%8C%E4%B8%8A%EF%BC%89%E7%9B%B4%E8%87%B3F%E5%88%97%E4%B8%BA%E7%A9%BA.2%E3%80%81%E6%8A%8AI2%E5%92%8CI3%E7%9B%B8%E5%8A%A0%2C%EF%BC%88I1%E4%B8%BA%E6%A0%87%E9%A2%98%EF%BC%89%2C)
求助一段VBA代码(合并和相加,取奇偶数)要求:1、把F2和F3合并,(F1为标题),结果放在F2.如1和2,合并为12,同时删除F3内容.接着把F4和F5合并(同上)直至F列为空.2、把I2和I3相加,(I1为标题),
求助一段VBA代码(合并和相加,取奇偶数)
要求:1、把F2和F3合并,(F1为标题),结果放在F2.如1和2,合并为12,同时删除F3内容.接着把F4和F5合并(同上)直至F列为空.
2、把I2和I3相加,(I1为标题),相加结果个位为奇数的,把奇字放在I2,(相加结果个位为偶数的,把偶字放在I2)同时删除I3内容,接着把I4和I5相加(同上)直至I列为空.
求助一段VBA代码(合并和相加,取奇偶数)要求:1、把F2和F3合并,(F1为标题),结果放在F2.如1和2,合并为12,同时删除F3内容.接着把F4和F5合并(同上)直至F列为空.2、把I2和I3相加,(I1为标题),
Sub iTest()
Dim r&, rs&, rng As Range, arr
With ActiveSheet
rs = .Cells(65536, "F").End(xlUp).Row
If rs Mod 2 = 0 Then rs = rs + 1
With .Cells(2, "F").Resize(rs - 2 + 1)
arr = .Cells
.ClearContents
For r = LBound(arr) To UBound(arr) - 1 Step 2
arr(r, 1) = arr(r, 1) & arr(r + 1, 1)
arr(r + 1, 1) = ""
Next
.Cells = arr
End With
rs = .Cells(65536, "I").End(xlUp).Row
If rs Mod 2 = 0 Then rs = rs + 1
With .Cells(2, "I").Resize(rs - 2 + 1)
arr = .Cells
.ClearContents
For r = LBound(arr) To UBound(arr) - 1 Step 2
If (arr(r, 1) + arr(r + 1, 1)) Mod 2 = 0 Then
arr(r, 1) = "偶"
Else
arr(r, 1) = "奇"
End If
arr(r + 1, 1) = ""
Next
.Cells = arr
End With
End With
MsgBox "ok!"
End Sub