Question

我目前正在使用它来从列中获取唯一值。我正在尝试修改该唯一值并在将其粘贴到目标位置之前修剪掉字符。

this.props.navigation.navigate('home')

我不确定在哪里或如何实现这行：componentDidMount，或者这是否是最佳途径。

源数据为“ 36个月”，我试图除数字本身以外的所有内容，导致仅将“ 36”粘贴到我的字段中。所有值都将采用“ XX月”格式，并且始终应为2位数字。

编辑：我也刚刚注意到上面的代码粘贴到单元格F13中，而不是粘贴到F12中-为什么要在粘贴之前添加一行？我怀疑“移调”方面，但看不到任何其他原因。

Answer 1

未经测试：

For Each Cl In wbFrom.Sheets("Sheet0").Range("X9", Range("X" & Rows.Count).End(xlUp))
            v = Left(Cl, Len(Cl) - 5)
            If Not .exists(v) Then
                .Add v, Nothing
            End If
Next Cl

Answer 2

这是针对那些有相同问题的解决方案，请在此处发布。

Dim Cl As Range
With CreateObject("scripting.dictionary")
    For Each Cl In wbFrom.Sheets("Sheet0").Range("X9", Range("X" & Rows.Count).End(xlUp))

        Cl.Value = Left$(Cl.Value, 2)  '<--- Magic spot

        If Not .exists(Cl.Value) Then
        .Add Cl.Value, Nothing
        End If
    Next Cl
    wbTo.Sheets("Sheet1").Range("D11").Resize(.Count).Value = Application.Transpose(.keys)
End With

这似乎也对我有用：

           Cla.Value = Replace(Cla.Value, " Months", "")

在将字符串复制到新单元格时修剪字符串

2 个答案: