后续有没计划开发针对wps的 Excel 区域操作？强烈需求

确实可以

---

---

' 功能：返回当前工作表名称
Function GetCurrentSheetName() As String
    Dim rng As Range
    Set rng = Selection
    On Error Resume Next
    
        ' 返回选中单元格所在工作表名称
        GetCurrentSheetName = rng.Worksheet.Name
    
    On Error GoTo 0
End Function

---

▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰▰

' 功能：返回当前选中单元格区域
Function GetSelectedCellPosition() As String
    Dim rng As Range
    ' 将选中区域赋值给变量
    Set rng = Selection
    On Error Resume Next
        ' 单个单元格：返回绝对地址（格式：$A$1）
        GetSelectedCellPosition = rng.Address
    
    On Error GoTo 0
End Function

---