检查工作表中是否存在一列，如果存在，则将数据复制到另一工作表中

Question

我需要有关vba代码的帮助，以检查特定工作表中是否存在一列，如果存在，则将该列内容粘贴到另一张工作表中，如果不存在则在另一张工作表中打印0

Answer 1

我搜索并找到此链接https://www.excel-easy.com/vba/workbook-worksheet-object.html

您可以通过三种方式引用集合的成员，例如，单个Worksheet对象。

  

  
1. 使用工作表名称。
  

     

Worksheets（“ Sales”）。Range（“ A1”）。Value =“ Hello”

---

  

  
1. 使用索引号（1是从左侧开始的第一个工作表）。
  

     

Worksheets（1）.Range（“ A1”）。Value =“ Hello”

---

  

  
1. 使用代号。
  

     

Sheet1.Range（“ A1”）。Value =“ Hello”

为计数空列，我发现了https://docs.microsoft.com/en-us/office/vba/api/excel.worksheetfunction.counta

  

检查D列是否为空的示例

     

IIf（WorksheetFunction.CountA（Columns（“ D”））= 0

---

  

要复制我发现的数据   https://analysistabs.com/excel-vba/copy-data-from-one-worksheet-to-another/

尝试一些操作，如果有疑问，请更新您的问题。