嘿，针对你提到的两个Excel处理需求，我整理了两种高效的VBA解决方案——毕竟面对720×720的大表格，公式不仅慢还容易出错，VBA是更靠谱的选择：

这个需求可以通过简单的VBA遍历实现，步骤如下：

• 打开你的Excel文件，按下Alt + F11打开VBA编辑器
• 右键点击左侧的工作簿名称 → 插入 → 模块，新建一个代码模块
• 粘贴下面的代码，记得根据你的实际情况修改源工作表名称、查找区域和目标工作表名称

Sub ExtractNonZeroCellAddresses()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim searchRange As Range
    Dim cell As Range
    Dim lastRow As Long
    
    ' 按需修改：源工作表、目标工作表名称
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1")
    Set targetSheet = ThisWorkbook.Sheets("Sheet2")
    
    ' 按需修改：要查找的指定区域
    Set searchRange = sourceSheet.Range("A1:ZZ720")
    
    ' 清空目标表原有内容（可选，根据需要保留）
    targetSheet.Cells.Clear
    
    lastRow = 1 ' 初始化目标表的起始行
    
    ' 遍历查找区域
    For Each cell In searchRange
        ' 筛选非零且非空的单元格
        If cell.Value <> 0 And Not IsEmpty(cell.Value) Then
            ' 写入单元格地址（这里是相对地址，不带$符号）
            targetSheet.Cells(lastRow, 1).Value = cell.Address(False, False)
            lastRow = lastRow + 1
        End If
    Next cell
    
    MsgBox "提取完成！共找到" & lastRow - 1 & "个非零单元格", vbInformation
End Sub

小提示： #

• 如果需要提取绝对地址（带$符号，比如$E$26），把代码里的cell.Address(False, False)改成cell.Address(True, True)即可
• 运行代码前建议保存文件，避免意外数据丢失

这个需求需要提取多维度的内容，VBA依然是最优解，步骤和上面一致，粘贴下面的代码即可：

Sub ExtractNonZeroWithRules()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim searchRange As Range
    Dim cell As Range
    Dim lastRow As Long
    
    ' 按需修改：源工作表、目标工作表名称
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1")
    Set targetSheet = ThisWorkbook.Sheets("Sheet2")
    
    ' 720×720的表格范围，按需调整
    Set searchRange = sourceSheet.Range("A1:ZZ720")
    
    ' 清空目标表并设置表头（可选，不需要可以删除此行）
    targetSheet.Cells.Clear
    targetSheet.Range("A1:E1").Value = Array("行首列1", "行首列2", "非零值", "列首行1", "列首行2")
    
    lastRow = 2 ' 从第2行开始写入数据（跳过表头）
    
    ' 遍历查找区域
    For Each cell In searchRange
        ' 可选：如果第1、2行是表头，不需要查找里面的非零值，就取消下面这行注释
        ' If cell.Row <= 2 Then GoTo NextCell
        
        ' 筛选非零且非空的单元格
        If cell.Value <> 0 And Not IsEmpty(cell.Value) Then
            ' 提取当前行的前两个单元格（A列、B列）
            targetSheet.Cells(lastRow, 1).Value = sourceSheet.Cells(cell.Row, 1).Value
            targetSheet.Cells(lastRow, 2).Value = sourceSheet.Cells(cell.Row, 2).Value
            
            ' 提取非零值单元格本身
            targetSheet.Cells(lastRow, 3).Value = cell.Value
            
            ' 提取当前列的前两个单元格（第1行、第2行）
            targetSheet.Cells(lastRow, 4).Value = sourceSheet.Cells(1, cell.Column).Value
            targetSheet.Cells(lastRow, 5).Value = sourceSheet.Cells(2, cell.Column).Value
            
            lastRow = lastRow + 1
        End If
NextCell:
    Next cell
    
    MsgBox "规则提取完成！共提取" & lastRow - 2 & "条记录", vbInformation
End Sub

关键说明： #

• 代码会自动按你要求的格式生成Sheet2：A列是目标单元格所在行的A列内容，B列是B列内容，C列是非零值本身，D列是目标列的第1行内容，E列是目标列的第2行内容
• 如果你的表格表头行需要排除（比如第1、2行是表头，不需要查找其中的非零值），取消代码中If cell.Row <= 2 Then GoTo NextCell的注释即可
• 大表运行可能需要几秒时间，耐心等待不要中途操作Excel

内容的提问来源于stack exchange，提问作者user9568878