例如：Sheet2中為信息內容，可以使用如下代碼，已測試通過。PrivateSubCommandButton1_Click()DimcxAsString'定義查詢內容變量DimiAsInteger'定義查詢數量變量DimiiAsInteger'定義循環變量DimaAsInteger'定義顯示數量的行數變量a=4'從第三行開始顯示查詢到的信息cx=ThisWorkbook.Sheets("Sheet1").Range("A2").Value'獲取查詢內容i=ThisWorkbook.Sheets("Sheet2").UsedRange.Rows.Count'獲取查詢表中已經使用的行數Forii=1ToiIfcx=ThisWorkbook.Sheets("Sheet2").Range("A"&ii).ValueThenThisWorkbook.Sheets("Sheet1").Range("A"&a).Value=ThisWorkbook.Sheets("Sheet2").Range("A"&ii).ValueThisWorkbook.Sheets("Sheet1").Range("B"&a).Value=ThisWorkbook.Sheets("Sheet2").Range("B"&ii).ValueThisWorkbook.Sheets("Sheet1").Range("C"&a).Value=ThisWorkbook.Sheets("Sheet2").Range("C"&ii).Valuea=a+1EndIfNextEndSub