Question

我希望用一个子字符串替换每个选定单元格中的当前文本，该子字符串包括> par(mfrow=c(1,1))的第一个实例的所有内容减去左侧的一个空格。例如：(变为Bob Smith (Director)。

很不幸，我在第四行（Bob Smith）上收到无效的过程或调用错误。希望将其保留在VBA中，因为它是较大VBA子例程中的许多操作之一。任何帮助将不胜感激。谢谢！

cell.Value =

Answer 1

如果InStr找不到子字符串，它将返回零。因此，您尝试获取Left（strin，-1），请在调用Left之前检查是否找到(。

ThisWorkbook.Worksheets("Data").Range("A1:A4000").Select

For Each cell In Selection

    position = InStr(cell.Value, "(") - 1
    if position > 0 then
        cell.Value = Left(cell.Value, position)
    end if

Next cell

Answer 2

尝试一下，当我对其进行测试时，它会完美运行

if (projects.length === 0) {
    axios.get( config.API.projects ).then(response => {

      this.SET_PROJECTS( response.data ); 

      projects.forEach( project => {
        this.SET_SKILLS( project.skills )
      });

      this.SET_SHOW_LOADER( false );

    }, error => {
      console.log( error );
      alert( "Une erreur est survenue, merci de contacter par mail l'administrateur de ce site" )
    })
}

无效的过程或使用cell.Value的调用

2 个答案: