EMPTY

select 'GRANT SELECT ON '||TABLE_NAME||'TO anotheruser;'
    from cat
  where table_type='TABLE'

Generate GRANT SQLs by above SQL and run these SQL

It can't work if i create a new table!

CREATE OR REPLACE PROCEDURE GrantAllTablesToUser(sUser VARCHAR2) IS
  sGrantClause VARCHAR2(4000);
  
  CURSOR curTable
      IS SELECT tname
           FROM tab
          WHERE tabtype = 'TABLE';
BEGIN
        FOR r IN curTable LOOP
         sGrantClause := 'GRANT ALL ON '
                      || r.tname
                            || ' TO '
                            || sUser ;

  EXECUTE IMMEDIATE sGrantClause;
END LOOP;       
END;
/

1:svrmgrl>spool e:\123.sql
2:svrmgrl>select 'grant select on  '||TABLE_NAME||
   '   to user;'  from cat    where table_type='TABLE'
3:svrmgrl>spool off
4:svrmgrl>@123

还是制定给某个角色，再将这个角色付给某个用户好一些。