哪位大哥能给翻译一下，不胜感激！

weifang669

哪位大哥能给翻译一下，不胜感激！尤其是红字部分！
Sub 统计()
    Dim i, k
    If [b1] = "" Then MsgBox "b1为空退出": Exit Sub
    Application.ScreenUpdating = False
    i = Sheets("统计").Range("a65000").End(3).Row + 1
    Sheets("统计").Cells(i, 1) = i - 1
    Sheets("登记").Range("B1:B10").Copy
    Sheets("统计").Cells(i, 2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Sheets("登记").Range("B1:B10").ClearContents
    MsgBox "录入成功"
    Application.ScreenUpdating = True
End Sub

abc123281

对选择的内容执行PasteSpecial操作（选择性粘贴），粘贴的方式为全部

jiminyanyan

可看一下帮助。。。。。。

小x白

Sub 统计()    '子程序 统计()
Dim i, k    '定义变量 i,k
If [b1] = "" Then MsgBox "b1为空退出": Exit Sub    '如果 [b1]=空值 则执行 <消息框>："b1为空退出":退出子程序
Application.ScreenUpdating = False    '关闭屏幕刷新(可以提高运行速度)
i = Sheets("统计").Range("a65000").End(3).Row + 1    ' i=<工作表>("统计" )的<单元格>区域("a65000" )的<末端>(向上)的行标+1
Sheets("统计").Cells(i, 1) = i - 1    '<工作表>("统计" )的<单元格>坐标(i,1)=i-1
Sheets("登记").Range("B1:B10").Copy    '<工作表>("登记" )的<单元格>区域("B1:B10" )的复制
Sheets("统计").Cells(i, 2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _    '<工作表>("统计" )的<单元格>坐标(i,2 )的选择性粘贴粘贴=xlPasteAll,Operation=xlNone,SkipBlanks=_
False, Transpose:=True    '转置
Sheets("登记").Range("B1:B10").ClearContents    '<工作表>("登记" )的<单元格>区域("B1:B10" )的清除内容
MsgBox "录入成功"    '<消息框>："录入成功"
Application.ScreenUpdating = True    '开启屏幕刷新
End Sub    '子程序结束

把B1：B10 区域复制，选择性粘贴（转置到）到目标区域的最下方，然后清空数据