excel 表格中的编程语句，请高手帮我解释一下下列语句的含义，谢谢 excel里面的一行语句，高手帮忙解释一下啥意思啊？完全看不...

excel \u4e2d\u7684\u8bed\u53e5\uff0c\u54ea\u4f4d\u9ad8\u624b\u5e2e\u7740\u89e3\u91ca\u4e00\u4e0b\u542b\u4e49\uff0c\u8c22\u8c22\uff01

airports2\u662f\u4e00\u4e2a\u5b9a\u4e49\u4e86\u540d\u79f0\u7684\u533a\u57df,Ctrl+F3\u53ef\u4ee5\u770b\u5230\u5b83\u5bf9\u5e94\u54ea\u4e2a\u533a\u57df
\u8be5\u516c\u5f0f\u529f\u80fd
\u5982\u679cG4\u65e0\u4efb\u4f55\u503c\uff0c\u5219\u8fd4\u56de\u7a7a\u503c\u2014\u2014\u4e0d\u505a\u4efb\u4f55\u4e8b
\u5426\u5219\uff0c\u4e00\u65e6\u68c0\u6d4b\u5230G4\u4e2d\u6709\u6570\u636e\uff0c\u5219\u6267\u884c\u540e\u9762\u7684\u8bed\u53e5
\u540e\u9762\u7684\u8bed\u53e5\u4e3b\u8981\u6267\u884c\u6570\u636e\u67e5\u8be2
\u9996\u5148\u68c0\u6d4bI4\u662f\u5426\u5728\u6570\u636e\u533aairports2\u7684\u7b2c\u4e00\u5217\u662f\u5426\u5b58\u5728\uff0c\u5982\u679c\u6570\u636e\u533aairports2\u6ca1\u6709I4\u8fd9\u4e2a\u503c\uff0c\u516c\u5f0f\u5c31\u663e\u793aERROR - CHECK APT CODE\u5e76\u4e2d\u6b62\u3002

\u5982\u679c\u5b58\u5728\uff0c\u5219\u8fd4\u56deairports2\u8fd9\u4e2a\u6570\u636e\u533a\u7b2c\u4e8c\u5217\u7684\u5bf9\u5e94\u503c\u3002

\u4f60\u516c\u5f0f\u4e2d\uff0c\u6709\u4e00\u5904\u9519\u8bef:IFalse\u5e94\u4e3afalse

\u8be5\u516c\u5f0f\u53ef\u6539\u5199\u5982\u4e0b
=if($G4="","",if(countif(airports2,$I4),vlookup($I4,airports2,2,),"ERROR - CHECK APT CODE"))

\u610f\u601d\u662f
\u5982\u679cBug closed\u8868\u7684H4:H9989\u8fd9\u4e2a\u533a\u57df\u4e2d\u6709\u503c\u4e0eSMI Grid\u8868\u7684D7\u503c\u4e00\u6837\uff0c\u90a3\u5c31\u628a\u4e00\u6837\u884c\u7684\u5bf9\u5e94A\u5217\u503c\u8fdb\u884c\u76f8\u52a0
\u8fd9\u662f\u6570\u7ec4\u516c\u5f0f\u3002
\u5176\u5b9e\u592a\u9ebb\u70e6\u4e86\uff0c\u4e5f\u52a0\u91cd\u4e86\u8fd0\u7b97\u7684\u538b\u529b\u3002
\u53ef\u4ee5\u4fee\u6539\u4e3a
=sumif(Bug_Closed!H:H,Smi_Grid!D$7,Bug_Closed!A:A)
\u8fd9\u6837\u4e0d\u662f\u6570\u7ec4\u516c\u5f0f

这程序是将表1的内容逐行复制到表2 对应的单元格中，并独立打印出来。
Sub xx()
Dim lastrow As Long ‘定义变类型
lastrow = Range("B65536").End(xlUp).Row() '读Sheet1有内容最后的行号
Sheets("Sheet2").Select ‘选择Sheet2
For i = 2 To lastrow '取Sheet1从第2行到最后一行 的内容
For j = 2 To 8 '取某行从2到8列的内容
Cells(j + 3, 3) = Sheet1.Cells(i, j) '放第3列的第5-11行
next j
For j = 9 To 13 '从9到13列的内容
Cells(j - 4, 6) = Sheet1.Cells(i, j) '放第6列的第5-9行
next j
Cells(14, 6) = Sheet1.Cells(i, 14) '取13到14列的内容
Cells(13, 6) = Sheet1.Cells(i, 15) ‘放6列的第14、13行
ActiveWindow.SelectedSheets.PrintOut Copies:=1 '打印工作表内容
next i ‘下一行内容
End Sub

Sub xx()
Dim lastrow As Long '定义lasttrow为长整形
lastrow = Range("B65536").End(xlUp).Row() '获取B列最大行数
Sheets("Sheet2").Select '选择工作表Sheet2作为当前工作表
For i = 2 To lastrow
For j = 2 To 8
Cells(j + 3, 3) = Sheet1.Cells(i, j) '将Sheet1的B2:H?区域数值赋给Sheet2的C5:C11，有错误，数据区域大小不相同，结果可能非预期
Next j
For j = 9 To 13
Cells(j - 4, 6) = Sheet1.Cells(i, j) '和前面错误类似
Next j
Cells(14, 6) = Sheet1.Cells(i, 14) 'Sheet1的N列赋给Sheet2的F14，有问题，最终F14为Sheet1 N列最后一行的值
Cells(13, 6) = Sheet1.Cells(i, 15) 'Sheet1的O列赋给Sheet2的F13，有问题，最终F13为Sheet1 O列最后一行的值
ActiveWindow.SelectedSheets.PrintOut Copies:=1 '打印当前选择的工作表Sheet2，位置错误，应与下一条命令交换，否则要打印N次，每次打印结果也不相同。
Next i
End Sub

抱歉，刚刚表述不完整，就是不同的人不同月份的销售汇总。遇到到不同人不同月都要插入一列进行汇总操作。

把当前表的数据按规则复制到表2当中,然后打印出来

扩展阅读：一步一步教你表格制作 ... 初学电脑excel表格制作 ... Excel表格制作 ... 表格怎么序号自动往下排 ... 新手做表格的步骤图片 ... excel教程视频全集自学 ... 表格自动生成123456 ... 一键自动生成序号 ... 新手制作表格详细步骤 ...