Excel VBA将数据验证源复制到单元格

Question

我正在开展一个项目，为我们提供的服务创建标准清单。目前，我们有多个项目类型的清单。我目前正在记录每个列表的值，以帮助我更好地衡量如何标准化，我正在构建一个宏来收集这些值。

某些单元格具有数据验证列表。我想将列表的Source复制到新单元格。所以不要只是复制＆＃34; YES＆＃34;或＆＃34;否＆＃34;，我会看到＆＃34;是，不是＆＃34;。

已更新

Sub OptionPop1()

Dim wb As Workbook, ws As Worksheet, lr As Long, x As Long, i As Long

Set wb = ThisWorkbook

With wb

    For i = 1 To wb.Worksheets.Count

        Set ws = wb.Worksheets(i)

        lr = ws.Cells(Rows.Count, 1).End(xlUp).Row

        On Error Resume Next

        For x = 2 To lr

            ws.Cells(x, 4).Value = ws.Cells(x, 6).Validation.Formula1

        Next x

    Next i

End With

End Sub

有什么想法？我还没能找到类似的问题。