Thank you, Jim, for your continued attention. Sorry, I haven't done this problem and it has been solved. This figure is the actual effect I got with the method provided by the gzmorgan0.
In the process, I combined multiple data tables, and then wrote the data of R square into a fixed empty cell, which can be accurately found in the VBA processing in the later stage.
Thanks again to the two experts!