VBA和Excel列

在A列写入程序的Excel工作表中，该程序使用MsgBox函数返回列，从空抽屉的第一个地址返回A1抽屉？

这不是答案。我想帮你问你的问题。如果你的英语不好，不要担心。如果你说得够多，我们就能猜出你的意思。一句话是不够的

下面我试着用简短的句子。我希望你能理解我。我的猜测正确吗？如果没有，我希望这有助于你写一个更清楚的问题

这是家庭作业吗？Excel的第一个练习？你用字典翻译过吗？“抽屉”是一个英文单词，但Excel中没有抽屉。你是说“手机”吗？A1是一个单元。B5是一个细胞。你把东西放在抽屉里。你把东西放在牢房里。这就是英语词典所犯的那种错误

创建并打开新的Excel工作簿。单击

Alt

+

F11

。在顶部的右侧，您将看到一个灰色区域。在底部的右侧，您将看到一个白色区域，标记为“立即”。在左边，您将看到如下内容：

VBAProject (Your excel file)
  Microsoft Excel Objects
    Sheet1 (Sheet1)
    Sheet2 (Sheet2)
    Sheet3 (Sheet3)
    ThisWorkbook

View Code
View Object
--------------------
VBProject Properties
 :     :
 :     :

如果左键单击Sheet 1，然后右键单击，将看到类似以下内容的菜单：

VBAProject (Your excel file)
  Microsoft Excel Objects
    Sheet1 (Sheet1)
    Sheet2 (Sheet2)
    Sheet3 (Sheet3)
    ThisWorkbook

View Code
View Object
--------------------
VBProject Properties
 :     :
 :     :

单击查看代码。灰色区域将变为白色。您可以在此处输入工作表1的代码。这就是您所说的“在Excel工作表中”的意思吗

我不打算把代码放在表1上。我将使用一个模块

转到工具栏并单击“插入”。在菜单中，单击模块

左边的窗口现在看起来像：

VBAProject (Your excel file)
  Microsoft Excel Objects
    Sheet1 (Sheet1)
    Sheet2 (Sheet2)
    Sheet3 (Sheet3)
    ThisWorkbook
  Modules
    Module1

“Module1”将为灰色，因为它已被选中

我认为您被要求：“查找第1行中的第一个空单元格，并使用MsgBox显示其列号。”有很多方法可以做到这一点。哪一个最简单？我不知道。这里有两种方法：

Option Explicit

' Both these routines work on the ActiveSheet.  That is, the worksheet
' you can see when you switch to Excel.  If this code had been against
' Sheet1, it would have worked on Sheet 1 even if another sheet had been
' active.

Sub FindFirstEmpty1()

  ' This routine uses Offset. Range("A1").Offset(RowOffset, ColOffset) says
  ' I want to look at the cell which is RowOffset rows down from A1 and
  ' ColOffset columns right from A1. 

  Dim ColOffset As Long

  ColOffset = 0
  Do While True
    If Range("A1").Offset(0, ColOffset).Value = "" Then
      Call MsgBox("The first empty column is " & ColOffset + 1, vbOKOnly)
      Exit Sub
    End If
    ColOffset = ColOffset + 1
  Loop

End Sub

Sub FindFirstEmpty2()

  ' This routine uses Cells(Row, Column).  The columns are numbered: A=1, B=2,
  ' C=3 and so on.  Cells(Row, Column) lets me look at any cell in the
  ' worksheet.

  Dim ColCrnt As Long

  ColCrnt = 1
  Do While True
    If Cells(1, ColCrnt).Value = "" Then
      Call MsgBox("The first empty column is " & ColCrnt, vbOKOnly)
      Exit Sub
    End If
    ColCrnt = ColCrnt + 1
  Loop

End Sub

---

不清楚你想要什么。。。你能提供一个你想要达到的目标的例子或图片吗？Brettdj，别忘了，有了1个声誉，你几乎被排除在除了文字以外的任何东西之外。