如何用VBA判断符合条件的数据复制粘贴到相应工作表？

Question

1.如果H列中，从上至下前二个数大于等于5以上，就复制相领三列，即FGH列复制粘贴到C工作表。2.如果P列中，从上至下,如果第一个数在4以内，第二个数和第三个数同时大于等于5，就复制NOP列复制粘贴到D工作表3.如果X列中，从上至下前三个数大于等于5以上，就复制相领三列，即VWX列复制粘贴到E工作表。4.如果AB列中，从上至下前三个数大于等于5以上，就复制相领三列，即Z.AA.AB列复制粘贴到F工作表。注意A:依次判断H列，L列,P列，T列，X列，AB列，AF列 ，AJ列..........一直到GV列. B:将符合条件的依次排列复制粘贴到CFEF工资表中 C:例如FGH列复制粘贴到C工作表。NOP列复制粘贴到F工作表。VWX列复制粘贴到E工作表。即Z.AA.AB列复制粘贴到F工作表。

Answer 1

这是一个相当复杂的问题，需要使用C#和Excel的相关类库来实现。为了完成这个任务，你需要了解C#和Excel之间的交互方式。
首先，你需要使用Microsoft.Office.Interop.Excel类库来操作Excel文件。这个类库可以让你在C#中操作Excel文件。
其次，你需要使用C#中的循环语句来遍历Excel文件中的所有数据，并且使用if语句来判断符不符合条件。
第三，当符合条件时，你需要使用Excel的Range类来复制符合条件的数据，并使用Workbook和Worksheet类来粘贴到另一个工作表中。
这是一个具体的示例代码，它实现了上述功能，你可以根据你的需求来修改:
using Microsoft.Office.Interop.Excel;
private void CopyData()
{
// 创建Excel应用程序
Application excelApp = new Application();
// 打开Excel文件
Workbook workbook = excelApp.Workbooks.Open("C:\\yourfile.xlsx");
// 遍历所有工作表
foreach (Worksheet sheet in workbook.Sheets)
{
// 设置遍历范围
Range range = sheet.Range["A1", "GV1048576"];
// 遍历所有单元格
for (int i = 1; i <= range.Rows.Count; i++)
{
// 判断H列
if (range.Cells[i, 8].Value >= 5 && range.Cells[i + 1, 8].Value >= 5)
{
// 复制FGH列
Range copiedRange = sheet.Range["F" + i, "H" + i];
copiedRange.Copy();
// 粘贴到C工作表
Worksheet targetSheet = workbook.Sheets["C"];
targetSheet.Range["A" + (targetSheet.UsedRange.Rows.Count + 1)].PasteSpecial();
}
// 判断P列
if (range.Cells[i, 16].Value < 4 && range.Cells[i + 1, 16].Value >= 5 && range.Cells[i + 2, 16].Value >= 5)
{
// 复制NOP列
Range copiedRange = sheet.Range["N" + i, "P" + i];
copiedRange.Copy();
// 粘贴到D工作表
Worksheet targetSheet = workbook.Sheets["D"];
targetSheet.Range["A" + (targetSheet.UsedRange.Rows.Count + 1)].PasteSpecial();
}
// 判断X列
if (range.Cells[i, 24].Value >= 5 && range.Cells[i + 1, 24].Value >= 5 && range.Cells[i + 2, 24].Value >= 5)
{
// 复制VWX列
Range copiedRange = sheet.Range["V" + i, "X" + i];
copiedRange.Copy();
// 粘贴到E工作表
Worksheet targetSheet = workbook.Sheets["E"];
targetSheet.Range["A" + (targetSheet.UsedRange.Rows.Count + 1)].PasteSpecial();
}
// 判断AB列
if (range.Cells[i, 28].Value >= 5 && range.Cells[i + 1, 28].Value >= 5 && range.Cells[i + 2, 28].Value >= 5)
{
// 复制ZAAAB列
Range copiedRange = sheet.Range["Z" + i, "AB" + i];
copiedRange.Copy();
// 粘贴到F工作表
Worksheet targetSheet = workbook.Sheets["F"];
targetSheet.Range["A" + (targetSheet.UsedRange.Rows.Count + 1)].PasteSpecial();
}
}
}
// 保存文件
workbook.Save();
// 关闭工作簿和Excel应用程序

workbook.Close();
excelApp.Quit();
}

这只是一个示例代码，还需要根据你的具体需求进行修改。在实际使用中，你可能需要进行错误处理、异常处理等操作。
另外，在使用Microsoft.Office.Interop.Excel类库操作Excel文件时，请注意内存管理问题，确保在操作完成后及时释放资源，避免内存泄露。追问

可以发个视频吗？这样能更加直观的理解！能说下你的QQ号吗？