主题：合并命令

Tables("初二鹤立考点").filter = "代码='37'"
For i As Integer = 0 To Tables("初二鹤立考点").rows.count - 1
Tables("初二鹤立考点").rows(i)("paixu") = 1
Next
Tables("初二鹤立考点").filter = "代码='36'"
For i As Integer = 0 To Tables("初二鹤立考点").rows.count - 1
Tables("初二鹤立考点").rows(i)("paixu") = 2
Next
Tables("初二鹤立考点").filter = "代码='45'"
For i As Integer = 0 To Tables("初二鹤立考点").rows.count - 1
Tables("初二鹤立考点").rows(i)("paixu") = 2
Next
Tables("初二鹤立考点").filter = "代码='38'"
For i As Integer = 0 To Tables("初二鹤立考点").rows.count - 1
Tables("初二鹤立考点").rows(i)("paixu") = 2
Next
Tables("初二鹤立考点").filter = "代码='44'"
For i As Integer = 0 To Tables("初二鹤立考点").rows.count - 1
Tables("初二鹤立考点").rows(i)("paixu") = 2
Next

请问以上命令如何合在一起，   代码为37 的paixu标为“1”， 其它的paixu标为“2”