VBA代码：用excel的VBE编辑器如何用代码实现提取某个单元格（如A1）所属的Sheet名称，并在另一张表中读出

Question

谢谢各位了，问题如上，最好有段简短的代码~~

Answer 1

如果假设你是选当前表格的A1，那直接MsgBox ActiveSheet.Name

如果假设你是选取指定表格的A1，那就是你指定的那个表格名,"表格名"

如果假设你是在VBA代码执行过程中，用鼠标选取了不特定的另一个表的单元格，并想获取此单元格所在的表格的表名，那就试下面的宏，借用cell公式实现。

Sub Test1()
Dim iCell
Dim iTemp

Set iCell = Application.InputBox("please select a cell", , , , , , , 8)
iCell.FormulaR1C1 = "=CELL(""filename"",R[1]C[1])"’借用cell公式获取此单元格所在位置（含表名）

MsgBox Right(iCell, Len(iCell) - InStrRev(iCell, "]")) ‘这里你想在哪里读出，就改下。
iCell = iTemp‘还原所选的单元格内容
End Sub

Answer 2

DIM AA
AA=Sheet1.Range("A1")
或者
K=1
AA= Sheet1.Range("A"& K)