產品統計程序設計

假設兩個表都從A列開始，可以用下面的代碼實現。

Sub cz()

紙張(“紙張2”)。挑選

範圍(" a3:a100 ")。清除內容

set sh 1 = Sheets(" sheet 1 ")

x = sh1。[a65536]。結束(xlUp)。排

n = 3

對於i = 2到x

用sh1

如果。Cells(i，1) = [b1]然後

單元格(n，1) =。單元格(I，1)

Cells(n，2) =。細胞(I，2)

Cells(n，3) =。細胞(I，3)

Cells(n，4) =。單元格(i + 1，1)

Cells(n，5) =。單元格(i + 1，2)

單元格(n，6) =。單元格(i + 1，3)

n = n + 1

對於j = i + 1到x

如果。Cells(j，3) =。細胞(I，3)然後

單元格(n，1) =。單元格(j，1)

Cells(n，2) =。單元格(j，2)

Cells(n，3) =。單元格(j，3)

Cells(n，4) =。單元格(j + 1，1)

Cells(n，5) =。單元格(j + 1，2)

單元格(n，6) =。單元格(j + 1，3)

如果…就會結束

然後

如果…就會結束

以…結尾

然後

末端接頭

上一篇:如何在matlab中輸出函數的圖像

下一篇:處理器晶體管的控制原理